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IDENTIFICATION 



PRODUCT CODE I 
PRODUCT NAME I 
PRODUCT DATEl 
MAINTAINER I 



AC-F087C-MC 

CXRPDC0 RP04,5,6 MOD 

JUNE 1979 

DEC/X11 SUPPORT GROUP 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION, DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL, 



COPYRIGHT (C) 1976,1979 DIGITAL EQUIPMENT CORPORATION 
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l t ABSTRACT 



RPD IS AN IOMODX WHICH WILL EXERSIZE UP TO 8 RP04/5/6 DISK DRIVES ON AN 
RH11/RH70 CONTROLLER, OR DUAL-PORTED BETWEEN TWO SUCH CONTROLLERS, IN 
SINGLE-PORT MODE | THE ENTIRE SURFACE OF EACH DISK WILL BE TESTABLE (RAND- 
OMLY OR SYSTEMATICALLY), 

IN DUAL-PORT MODE, THE "A" CONTROLLER MODULE WILL ACCESS ONLY THE LOW 
HALF OF THE DISK, AND THE "B" CONTROLLER MODULE WILL ACCESS ONLY THE HIGH 
HALF OF THE DlSKf NO COMMUNICATION WILL BE ATTEMPTED BETWEEN THE TWO 
PORTS, ONE COPY OF THIS MODULE MUST BE CONFIGURED FOR EACH PORT. 

SINGLE/DUAL PORT MODE WILL BE AUTOMATICALLY SELECTED ON THE BASIS OF 
THE RPDT REGISTER OF EACH SELECTED DRIVE. 

DURING TESTING, ANY BAD SECTOR FOUND WILL BE STORED AUTOMATICALLY AND 
WITHOUT OPERATOR INTERVENTION INTO THE MODULE'S BADSPOT TABLE, A MESSAGE 
CAN BE PRINTED TO NOTIFY THE OPERATOR OF THE BADSPOT ADDRESS (SEE OPERATOR 
OPTIONS) , SECTORS LISTED IN THE TABLE WILL NOT BE TESTED ON ANY 
DRIVE, 

THE WBUFRQ WORD IN THE HEADER MAY BE CHANGED AT WILL TO ALTER THE 
MODULE'S TRANSFER SIZE (AND OF COURSE A AND B-PORT SIZES NEED NOT MATCH) 5 
THIS WILL NOT ALTER THE EFFECTIVENESS OF THE BADSPOT TABLE OR CAUSE THE 
MODULE TO ATTEMPT ACCESS OF OUT-OF-RANGE DISK ADDRESSES. WITHIN THIS 
FRAMEWORK, THE MODULES WILL ACCESS AS MUCH OF THE DISK AS POSSIBLE, RANDOM 
SEEKS WILL BE USED UNLESS THIS OPTION IS DESELECTED IN SRl, 



2, REQUIREMENTS 

HARDWARE I 1 TO 8 RP04/5/6 DRIVES ON 1 OR 2 RH11/RH70 CONTROLLERS 

STORAGE t I PPD REQUIRES i 

DECIMAL WORDS! 1806 

OCTAL WORDS } 3416 

OCTAL BYTES t 7034 



3 a PASS DEFINITION 



m ONE PASS CONSISTS OF 300 ITERATIONS, 

- AN ITERATION CONSISTS OF THE FOLLOWING STEPS EXECUTED ON EACH SELECTED 
DRIVE | 

A c WRITE DATA TO DISK, IN DUAL-PORT MODE, PORT "A" MODULE WILL TEST 
THE LOW HALF OF THE DISK (CYLINDERS TO 407 FOR RP06, CYLINDERS 
TO 205 FOR PP04/5), PORT "B" WILL EXERSIZE THE HIGH HALF 
(CYLINDERS 206 TO 410 FOR RP04/5, CYLINDERS 408 TO 814 FOP RP06), 
IN SINGLE-PORT MODE, THE MODULE WILL ACCESS THE ENTIRE DISK SUR- 
FACE (CYLINDERS TO 410 FOR RP04/b, CYLINDERS TO 814 FOR 
RP06) , 

B t WRITE-CHECK DATA JUST WRITTEN. 

C* READ 256 WORDS (1 SECTOR) INTO MODULE READ BUFFER, 

D t DO IN-CORE COMPARE OF READ BUFFER WITH FIRST 256 WORDS OF WRITE 
BUFFER, 

E 8 RELEASE THE DRIVE FOR OTHER PORT TO TEST 8 



ftPDC DEC/X11 SYSTEM EXERCISER MODULE MACU1 30A(1052) 13-JUN-79 13f0S PAGE 4 
XPPDC0 V P11 13-JUN-79 13101 



4 t EXECUTION TIME 

ONE PASS OF RPD RUNNING ALONE ON A PDP-11/70 TAKES ABOUT A MINUTE, 

5, CONFIGURATION REQUIREMENTS 

DEFAULT PARAMETERS! 

DVA-176700 VCT-254 BR1-5 DVC-1 

REQUIRED PARAMETERS! 

SRI MUST BE SET UP TO INDICATE WHICH PORT (A/B) THIS COPY OF THE 
MODULE IS TO TEST* IF ANY DRIVES ARE DUAL-PORTED, ALSO, BIT 7 MUST BE 
SET IF THE CONTROLLER IS AN RH70, AND CLEARED IF IT IS NOT AN RH70. 

6, DEVICE/OPTION SETUP 



MAKE SURE ALL DRIVES ARE POWERED UP, WRITE ENABLED, AND READY, 

FOR DUAL-PORTED DRIVESI MAKE SURE CONTROLLER SELECT SWITCH IS IN A/B 
POSITION, IF DRIVE IS NOT CYCLED UP WITH SWITCH IN CORRECT POSITION, PLACE 
SWITCH CORRECTLY, AND DISABLE THEN RE-ENABLE DRIVE USING DRIVE DISABLE 
SWITCH, 

7. OPERATOR OPTIONS 

SRI 

BIT 2 

CLEARC0)! 

TYPE OUT DATA LATE ERRORS (HARD ERROR) AND COUNT THEM INTERNALLY, 
SETCDS 

COUNT DATA LATE ERRORS INTERNALLY, BUT DO NOT TYPE OUT, 

BIT 4 

CLEAR(0)l 

THIS COPY OF RPD TESTS A-PORT ON ANY DiJAL-pORTED DRIVES 
SETCDl 

THIS COPY OF RPD TESTS B-PORT ON ANY DUAL-pORTED DRIVES 

BIT 5 

CLEAR(0)l 

TEST DISKS WITH RANDOM SEEKS 

SETCUl 

DISABLE RANDOM SEEKS, INCREMENT SECTOR BY ONE EACH CYCLE, 

BIT 6 

CLEARC05 i 

DO NOT TYPE OUT BADSPOTS, 
SETC 1 ) S 



A § 
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ALWAYS TYPE OUT ANY BADSPOT NOT ALREADY RECORDED ON BADSPOT 
TABLE, 

BIT 7 

CLEAR(0)S 

CONTROLLER IS RH11 
SET( 1 } I 

CONTROLLER IS RH70 (HAS RHBAE AND RHCS3) 



8, NON-STANDARD PRINTOUTS 



A 9 MOST PRINTOUTS HAVE THE STANDARD FORMATS, 

B, ERROR MESSAGE DUMP RH11 REGISTERS IN THE FOLLOWING ORDERS 
RHCS1 RHWC RHBA RPDA RHCS2 RPDS RPER1 RPAS 
RPLA RHDB RPMR RPDT RPSN RPOF RPDC RPCC 
RPER2 RPER3 RPEC1 RPEC2 



C, THE BAD SECTOR MESSAGE (WHEN ENABLED) LOOKS LIKE 2 

•DRIVE XI BADSPOT AT (OCTAL) CYLS XX # TRK I XX* SEC S XX* 

WHERE 'X # IS AN OCTAL DIGIT, NO ERROR IS ASSOCIATED WITH THIS 
MESSAGE, 
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(DRB001 



SEU 0005 



, 5BTTL MODULE HEADER BLOCK (DRB001 
000000* IOMODX <RPDC >, 176700, 254, 5,0,0, 1500, 104,RBUF, 256, ,256, 

000000* MODULE 150000, PPDC , 176700 , 254 , 5 ,0 ,0, 1 300 , 104 ,RBUF , 256 256 , 

.TITLE RPDC DEC/X11 SYSTEM EXERCISER MODULE 

) DDXCOM VERSION 6 23-MAY-78 



.LIST BTN 



■ 



000000' 






BEGIN | 








000000' 


050132 041304 


040 


MODNAMI 


•ASCII 


/RPDC / 


( MODULE NAME, 


000005' 


000 




XFLAGj 


.BYTE 


OPEN 


> USED TO KEEP TRACK OF WBUFF USAGE 


000006* 


176700 




ADDR1 


176700 + J 


3 


J 1ST DEVICE ADDR, 


000010* 


000254 




VECTORl 


254 + 




j 1ST DEVICE VECTOR, 


000012* 


240 




BR1 1 


.BYTE 


PRTY5+0 


1 1ST BR LEVEL, 


000013* 


000 




BR2! 


.BYTE 


PPTY0+0 


(2ND BR LEVEL, 


000014* 


000001 




DVIDll 


+ 1 




IDEVICE INDICATOR 1. 


000016* 


000000 




SR1I 


OPEN 




(SWITCH REGISTER 1 


000020* 


000000 




SR2I 


OPEN 




(SWITCH REGISTER 2 


000022" 


000000 




SR3I 


OPEN 




(SWITCH REGISTER 3 


000024* 


000000 




SR4t 


OPEN 




(SWITCH REGISTER 4 










000026' 


150000 




STATi 


150000 




(STATUS WORD, 


000030* 


002044' 




INITI 


START 




(MODULE START ADDR, 


000032' 


000252' 




SPOINTl 


MODSP 




(MODULE STACK POINTER, 


000034* 


000000 




PASCNTI 







(PASS COUNTER, 


000036* 


001500 




ICONTl 


1500 




H OF ITERATIONS PER PASS=1500 


000040* 


000000 




ICOUNTI 







(LOC TO COUNT ITERATIONS 


000042' 


000000 




SOFCNTI 







(LOC TO SAVE TOTAL SOFT ERRORS 


000044* 


000000 




HRDCNTI 







(LOC TO SAVE TOTAL HARD ERRORS 


000046* 


000000 




SOFPASI 







(LOC TO SAVE SOFT ERRORS PER PASS 


000050' 


000000 




HRDPA5I 







(LOC TO SAVE HARD ERRORS PER PASS 


000052* 


000000 




SYSCNTI 







M OF SYS ERRORS ACCUMULATED 


000054* 


000000 




PANNUMI 







; HOLDS RANDOM # WHEN RAND MACRO IS CALLED 


000056* 






CONFIGl 






(RESERVED FOR MONITOR USE 


000056' 


000000 




RESU 







(RESERVED FOR MONITOR USE 


000060* 


000000 




RES2I 







; RESERVED FOR MONITOR USE 


000062* 


000000 




SVR0I 


OPEN 




(LOG TO SAVE R0, 


000064' 


000000 




SVRll 


OPEN 




(LOC TO SAVE Rl, 


000066* 


000000 




SVP2 1 


OPEN 




(LOC TO SAVE R2, 


000070' 


000000 




SVR3 I 


OPEN 




(LOC TO SAVE R3, 


000072* 


000000 




SVR4I 


OPEN 




(LOC TO SAVE R4, 


030074* 


000000 




SVR5I 


OPEN 




(LOC TO SAVE R5, 


000076* 


000000 




SVR6I 


OPEN 




(LOC TO SAVE R6, 


000100' 


000000 




CSRAt 


OPEN 




(ADDR OF CURRENT CSR, 


000102' 






SBADRI 






(ADDR OF GOOD DATA, OR 


000102' 


000000 




ACSRl 


OPEN 




(CONTENTS OF CSR, 


000104* 






WASADPI 






(ADDR OF BAD DATA, OR 


000104* 


000000 




ASTATl 


OPEN 




(STATUS REG CONTENTS, 


000106* 






EPPTYPJ 






( TYPE OF ERROR 


000106' 


000000 




ASBj 


OPEN 




(EXPECTED DATA, 


000110* 


000000 




AWASt 


OPEN 




(ACTUAL DATA, 


000112' 


002170* 




RSTRTl 


RESTRT 




(RESTART ADDRESS AFTER END OF PASS 


000114* 


000000 




WDTOl 


OPEN 




(WORDS TO MEMORY PER ITERATION * 


000116* 


000000 




WDFRl 


OPEN 




(WORDS FROM MEMORY PER ITERATION 


000120' 


000000 




INTR1 


OPEN 




(# OF INTERRUPTS PER ITERATION 


000122' 


000104 




IDNUMi 


104 




(MODULE IDENTIFICATION NUMBER*104 


000124' 


000716' 




RBUFVAI 


RBUF 




(READ BUFFER VIRTUAL ADDRESS 
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000126* 
000130' 
000132* 
000134* 
000136* 
000140' 
000142' 
000144* 
000146* 
000150* 



MACYll 30AU052) 13»JUN«79 
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PBUFPAI OPEN 
RBUFEAI OPEK 
PBUFSZI 236, 
WBUFPAl OPEN 
WBUFEAI OPEN 
WBUFRQl 256, 
WBUFSZI OPEN 
CDERCTl OPEN 
CDWDCTI OPEN 
FREEi OPEN 

,PEPT SPSIE 

.NLIST 

.WORD 

.LIST 

„ENDR 

KODSPI 

( *«#«»»#•**#**##»**«•«* 



(DRB001 
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(READ BUFFER PHYSICAL ADDRESS 
(READ BUFFER EA BITS 
(SIZE OF THE READ BUFFER 
(WRITE BUFFER PHYSICAL ADDRESS 
( WRITE BUFFER EA BITS 
(WRITE BUFFER SIZE REQUESTED 
(WRITE BUFFER SIZE AVAILABLE 
(CDATA/DATCK ERROR COUNT 
(CDATA/DATCK WORD COUNT 
(RESERVED FOR FUTURE USE 
(MODULE STACK STARTS HERE, 



«*««#**«#««##**#»*««*#*»»**»««»«*«*##*«**«***«»#* 



■ 



RPDC DEC/XU SYSTEM EXERCISER MODULE MACYil 30AC1052) 13-JUN-79 13105 PAGE 8 
XRPDC0.P11 13-JUN-79 13101 MODULE PRIVATE DATA 



{DRB001 



BEQ 0007 



260 




261 


000232* 


263 




333 




264 




263 


000252' 


266 


000234' 


267 


000256' 


268 


000260' 


269 


000262' 


270 


000264' 


271 


000266' 


272 


000270' 


273 


000272' 


274 


000274' 


27S 


000276* 


276 


000300* 


277 


000302' 


278 


000304' 


279 


000306' 


280 


000310* 


281 


000312' 


282 


000314* 


283 


000316* 


284 


000320* 


283 


000322' 


286 


000324* 


287 


000326* 


288 


000330' 


289 


000332* 


290 


000334* 


291 


000336' 


292 


000340* 


293 


000342* 


294 


000344* 


295 


000346* 


296 


000350* 


297 


000352' 


298 


000354' 


299 


000336* 


300 


000360* 


301 


000362* 


302 


000364' 


303 


000366* 


304 


000370* 


30S 


000372* 


306 


000374 s 


307 


000376' 


308 


000400* 


309 


000402* 


310 


000404* 


311 


000406* 


312 


000410' 


313 


000412' 


314 


000414* 


313 


000416* 



.SBTTL 
BADSPT I 



DATA 








{DRB001 




f BAD SPOT TABLE, THERE 


IS 


ROOM 


FOR 48 


{DRB001 




| BAD SPOTS, IN TWO-WORD 


FORMAT, 


CYLINDER 


{DRB001 




{FIRST, THEN SECTOR IN 


LOW 


BYTE 


OF SECOND 


{DRB001 




j WORD, AND TRACK IN HIGH BYTE, 




{DRB001 




{CYLINDER ADDRESS 








{DRB001 


'%> 


f TRACK/SECTOR ADDRESS 








{DRB001 




ICYLINDER ADDRESS 








{DRB001 


1 


{ TRACK/SECTOR ADDRESS 








{DRB001 


J 


ICYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




ICYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




ICYLINDER ADDRESS 








{DRB001 




1 TRACK/SECTOR ADDRESS 








{DRB001 




ICYLINDER ADDRESS 








IDRB001 




| TRACK/SECTOR ADDRESS 








{DRB001 




ICYLINDER ADDRESS 








{DRB001 




1 TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




ITRACK/SECTOR ADDRESS 








{DRB001 




f CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




ICYLINDER ADDRESS 








{DRB001 




I TRACK/SECTOR ADDRESS 








{DRB001 




ICYLINDER ADDRESS 








{DRB001 





ITRACK/SECTOR ADDRESS 








{DRB001 


{CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




ICYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 


* 


{TRACK/SECTOR ADDRESS 








{DRB001 


{CYLINDER ADDRESS 








IDRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 


) 


{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




{ TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








■ r\t%aiAtA I 
fUHDX/Vl 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








{DRB001 




{TRACK/SECTOR ADDRESS 








{DRB001 




{CYLINDER ADDRESS 








IDRB001 
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316 


000420' 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


317 


000422* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


318 


000424* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


319 


000426* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


320 


000430* 177777 


177777 


ITRACK/SECTOR ADDRESS 


IDRB001 


321 


000432* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


322 


000434' 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


323 


000436* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


324 


000440* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


325 


000442* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


326 


000444* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


327 


000446* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


328 


000450* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


329 


000432* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


330 


000434' 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


331 


000456" 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


332 


000460* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


333 


000462' 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


334 


000464* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


335 


000466' 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


336 


000470* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


337 


000472* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


338 


000474' 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


339 


000476' 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


340 


000500* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


341 


000502* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


342 


000504* 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


343 


000306' 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


344 


000510* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


343 


000512' 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


346 


000514* 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


347 


003316* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


348 


000520' 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


349 


000322' 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


330 


000524' 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


331 


000526' 177777 


177777 


ICYLINDER ADDRESS 


{DRB001 


352 


000330* 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


333 


000532* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


334 


000534' 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


355 


000536* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


356 


000340* 177777 


177777 


{TRACK/SECTOR ADDRESS 


{DRB001 


3S7 


000S42* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


338 


000344* 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


339 


000346* 177777 


177777 


{CYLINDER ADDRESS 


{DRB001 


360 


000S30* 177777 


177777 


ITRACK/SECTOR ADDRESS 


{DRB001 


361 


000533* 


ENDBBKl 




{DRB001 


362 








{DRB001 


363 


000004 


DLATE ■ BIT2 




{UPB001 


364 


000020 


BPORT a BZT4 




{DRB001 


363 


000040 


NORAND b BITS 




{DRB001 


366 


000100 


BDSPT «BIT6 




{DRB001 


367 


000200 


RH70 a BIT7 




{DRB001 


368 






l**-16 


IDRB001 


369 


ff0333* 000000 000000 6 


300000 SI 0,0,0,0,0,0 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 




370 


000360* 000000 000000 i 


100000 






371 


mmm* 000000 0@000e g 


00000 







# 
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IDRB001 



SEU 0009 



372 
373 
374 
373 
376 
377 
378 
379 
390 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 



000574' 000000 000000 000000 
000602* 
000610* 

000616* 000000 000000 000000 
000624* 000000 



000626' 000000 

000630* 000000 

000632* 000000 

000634* 000000 

000636* 0002S2' 

000640' 000000 

000642' 000000 

000644* 000000 



000646* 
000647* 



000652* 000000 

000654* 000000 

000656* 000000 

000660' 000000 

000662* 000000 

000664* 000000 



000670* 000000 

000672* 000000 

£00674* 000000 

000676* 000000 



000702' 000000 

000704* 000000 

000706* 000000 

000710* 000000 

000712* 000000 

000714* 000000 

000716* 000400 



01716* 
01716* 
01720* 
01722* 
01724* 
01726* 
01730* 
01732* 
01734* 
01736* 
01740* 



000352' 
000554* 
000556' 
000560* 
000562' 
000564' 
000566* 
000570* 
000572' 
000574' 



|DO NOT 
f NEEDED 
PAIS I 
XMEMf 
PA22I 
EA22I 



NXTBBKI BADSPT 



CHANGE THE ORDER OF THE NEXT 4 LOCATIONS 
FOR MAP22 ROUTINE 



CYLLIMl 

CYLNDR! 

CYLt 

DSKADRI 

SECTOR I 

TRACKf 

BADCYLl 
BADSEC I 
BADTRKl 

LASCYLI 
LASTRKt 
LASSECl 

SlETRKi 

SIZSECI 

FLAGI 

DVICEl 

DRIVE! 

UNITNOl 

DLTCNTI 

FUNCl 

TIMER! 

ZERO! 

FERADR! 

CLK| 

TRY! 

RBUFl 

TABLE! 



.BYTE 
.BYTE 



S 

S+2 

S+4 

S+6 

S+10 

S412 

5 + 14 

S + 16 

S+20 

S+22 



f NEXT OPEN BADSPOT IN TABLE 

I UPPER DISK LIMIT (DEPENDS ON DISK TYPE 

(ABSOLUTE CYLINDER ADDRESS OF CURRENT OP 

f RELATIVE DISK ADDRESS 

pFOR REFERENCING TRACK/SECTOR AS WORD 
f SECTOR ADDRESS OF CURRENT OPERATION 

f TRACK ADDRESS OF CURRENT OPERATION 

I FROM DRIVE LOCATION REGISTERS, ON FINDI 
fFROM RPDA ON BADSPOT OCCURANCE 
(FROM RPDA+1 ON BADSPOT > 

I LAST CYLINDER WHICH CAN BE WRITTEN 
; LAST TRACK WHICH CAN BE WRITTEN 
j LAST SECTOR WHICH CAN BE WRITTEN 

; NUMBER OF TRACKS IN WBUFSZ 

f REMAINDER OF WBUFSZ* IN SECTORS 



IDRB001 
JDRB001 
) )DRB001 
,pDRB001 

IDRB001 
|DRB001 
JDRB001 
P0RB001 
}DRB001 
NG BADSPOTpDRB00l 
IDRB001 



JDRB001 
pDRB00i 
IDRB001 
pDRB001 
JDRB001 
>DRB00i 
1 



JDRB001 



,RLKW 256, 



RPDC DEC/X11 SYSTEM EXERCISER MODULE 
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XRPDC0 a 


,P 1 1 13-JUN-79 13101 


MODULE 


PRIVATE DATA 


428 


001742' 000576' 




S+24 


429 


001744' 000600* 




S+26 


430 


001746* 000602* 




S+30 


431 


001750* 000604' 




S+32 


432 


001752* 000606* 




S+34 


433 


001734* 000610' 




S+36 


434 


001756' 000612* 




S + 40 


435 


001760* 000614* 




S+42 


436 


001762' 000616* 




S + 4 4 


437 


001764* 000620' 




S + 46 


438 








439 


001766* 177777 




177777 


440 


001770* 000000 


RHCSli 





441 


001772* 000000 


RHWCl 





442 


001774* 000000 


RHBAi 





443 


001776* 000000 


PPDAl 





444 


002000* 000000 


RHCS2 I 





445 


002002* 000000 


RPDS! 





446 


002004* 000000 


PPERl! 





447 


002006* 000000 


RPASl 





448 


002010* 000000 


RPLAl 





449 


002012' 000000 


RHDBl 





450 


002014' 000000 


PPMRi 





451 


002016* 000000 


RPDT! 





432 


002020* 000000 


RPSNj 





453 


002022* 0000*0 


RPOF! 





454 


002024* 000000 


PPDC I 





455 


002026* 000000 


RPCC! 





456 


002030' 000000 


RPER2! 





457 


002032' 000000 


RPER3 1 





458 


€02034' 000000 


RPECi! 





459 


002036* 000000 


RPFC2I 





460 


002040' 000000 


RHBAE ! 





461 


002042* 000000 


RHCS3 I 




462 









IDRB001 



}DRB001 



p#*»4 



|DRB001 
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463 










.SBTTL 


MODULE 


CODE 




{DRB001 


464 


002044' 


012767 


000400 


176042 


START 1 


MOV 


»256,,WDT0 


1256 WORDS TO MEM/ITERATION 




465 


002052' 


012767 


000400 


176036 




MOV 


#256, ,WDFR 


1256 WORDS FROM MEM/ITERATION 




466 


002060' 


012767 


000004 


176032 




MOV 


#4,INTR 


{4 INTERRUPTS/ ITER AT ION 




467 


002066' 


016767 


175722 


176576 




MOV 


DVID1,DVICE 


> GET DRIVES TO TEST 




468 


002074' 


123727 


000041 


000011 




CMPB 


•#41, #11 


{ 1F RP IS LOAD MEDIUM THEN 




469 


002102' 


001021 








BNE 


3$ 


{BEGIN 




470 


002104' 


113700 


000040 






MOVB 


g#40,R0 


| GET LOAD-DEVICE NUMBER 




471 


002110' 


012701 


000001 






MOV 


#1,R1 


I INITIALIZE DEVICE MASK 




472 


002114' 


105700 






lit 


TSTB 


R0 


{ WHILE NOT POINTING AT LOAD-DEVICE DO 


473 


002116' 


001403 








BEQ 


2$ 


) BEGIN 




474 


002120' 


006301 








ASL 


Rl 


{ SHIFT MASK TO NEXT DEVICE 




475 


002122' 


105300 








DECB 


R0 


I KEEP TRACK OF SHIFTING 




476 


002124' 


000773 








BR 


1$ 


} END 




477 


002126' 


130167 


176540 




291 


BITB 


Ri #DVICE 


I IF LOAD DEVICE IS SELECTED THEN 




478 


002132* 


001405 








BEQ 


3$ 


{ BEGIN 




479 


002134' 


1 13767 


000040 


176534 




MOVB 


M40»UNITNO 


{ MOVE LOAD-DEVICE NUMBER TO DRYVE 




480 


002142' 


004767 


002252 






JSR 


PC, DROP 


{ DROP THE LOAD-DEVICE 




481 
















{ END 




482 


002146' 








3$l 






f END 




483 


002146' 


005067 


176472 






CLR 


CYL 


{START AT CYLINDER 


{DRB001 


484 


002152' 


012767 


000377 


176466 




MOV 


#377,DSKADR 


f START AT TRACK 0, SECTOR 


{DRB001 


485 
















) (» INCREMENT BEFORE TEST *) 


{DRB001 


486 


002160' 


004767 


003652 






JSR 


PC, SETUP 






487 


002164' 


004767 


003530 






JSR 


PC,REZET 


> CLEAR THE RH 




488 


002170* 








RESTRTI 










489 




















490 


nflMl m fx 

002170 


104415 


000000 * 


0001 24 * 




GETPA f 




1 GET PHYSICAL ADDRESS FROM 16-B 


IT RBUFVA 


491 
492 


002176' 


012767 


177777 


176472 


LOOP 11 


MOV 


#*»1 ,UNITNO 


{PRE-SET UNIT NUMBER 




493 


002204* 


104414 


000000' 






GWBUFSi 


, BEGIN 


J GET WRITE BUFFER INFORMATION 




494 
















!##«! 


{DRB001 


495 


002210' 








L00P2I 










496 


002210' 


004767 


000744 




35! 


JSR 


PC,PICKDR 


1 GO PICK A DRIVE 




497 


002214' 


103407 








BCS 


IS 


{RETURNS HERE IF ALL DRIVES DONE 


{DRB001 


498 




004767 


001574 






JSR 


PC,WRTLIM 


j GET DISK LIMITS FOR THIS TYPE OF DISK 


{DRB001 


499 


002222' 


005067 


176466 






CLR 


TRY 


J ELSE CLR RE TRY COUNT 




500 


002226* 


004767 


000022 






JSR 


PC, CYCLE 


{GO DO A CYCLE ON THIS DRIVE 




501 


002232* 


000766 








BR 


LOOP2 


{DO IT TO NEXT DRIVE 




502 
503 


002234' 


005767 


176432 




ist 


TST 


DVICE 


{ANYBODY LEFT TO CHECK? 




504 


002240' 


001002 








BNE 


2$ 


IBR IF YES 




505 


002242' 


104410 


000000' 






END*, BEGIN 


{ 




506 


002246' 








2$i 










507 


002246' 


104413 


000000* 






ENDITI i 


f BEGIN 


{SIGNAL END OF ITERATION , 




508 
















{MONITOR SHALL TEST END OF PASS 




509 


002252* 


000751 








BP 


LOOPl 


{BR BACK IF NO 




510 
511 


002254* 








CYCLEi 










512 
















{##-4 


{DRB001 


513 


002254' 


004767 


000772 






JSR 


PCPICKBK 


{SELECT A SECTOR TO TEST 


{DRB001 


514 


002260' 


004567 


000026 






JSR 


R5, WRITE 


{GO WRITE A BLOCK 




515 


002264' 


004567 


000116 






JSR 


P5,WRITCK 


{GO DO WRITE CHECK 




516 


002270' 


004567 


000206 






JSR 


R5,PEAD 


{GO READ A BLOCK 




517 


002274' 


104412 


000000* 


000126' 




CDATASi 


,BEGIN,PBUFPA 


{ REQUEST FOR MONITOR TO CHECK DATA 




518 


002302* 


002304' 








, + 2 




{ IF ERROR* CONTINUE 
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519 

520 
521 



002304' 004767 000266 
002310* 000207 



JSR 
RTS 



PCPELESE 
PC 



{DRB001 



{RELEASE THE DRIVE 
{END CYCLE 



{DRB001 
{DRB001 
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XRPDC0 


Pit 13«JUN*>79 


13101 




MODULE 


CODE 




»DRB001 


522 
















I ##"66 


S23 












.MACRO 


LINEUP EABITS 


j LINE UP EA BITS FOR RHCS1 


§24 










; 


LINEUP 


EABITS 


; LINE UP EA BITS FOR RHCS1 


523 












9 NLIST 






526 












MOV 


EABITS* R0 


J GET EXTENDED MEMORY BITS 


327 












ASL 


R0 


• SHIFT 4 PLACES TO THE LEFT 


528 












ASL 


R0 


I TO LINE UP WITH RHCSl 


329 












ASL 


R0 


f 


530 












ASL 


R0 




53i 












MOV 


P0,XMEM 


j SAVE THE SHIFTED BITS 


532 












9 LIST 






533 












8 ENDM 


LINEUP 




534 


















535 


















536 


002312* 


01 2767 


000161 


176362 


WRITE! 


MOV 


#161,FUNC 


j LOAD WRITE FUNCTION 


537 


002320 * 


012767 


002312* 


176362 




MOV 


IWRITE, FERADR 


f SAVE WHERE WE WERE 


538 


002326 * 


016746 


175610 






MOV 


WBUFSZ,-(SP) 


; GET WRITE SIZE 


539 


002332 ' 


005416 








NEC 


(SP) 


I NEGATE IT 


540 


002334 * 


012677 


177432 






MOV 


(SPJ*»9RHWC 


f LOAD WORD COUNT 


541 


002340 * 


016777 


175570 


177426 




MOV 


WPUFPA, (&RHBA 


i LOAD BUFFER ADDRESS 


542 


002346* 


016777 


176274 


177422 




MOV 


DSKADR,PRPDA 


> LOAD DISK ADDRESS 


543 


002354* 


016777 


176262 


177442 




MOV 


CYLNDP,®RPDC 


I LOAD CYLINDER ADDRESS 


544 










1 


LINEUP 


WBUFEA 


I LINE UP EA BITS FOR RHCSl 


545 


002402' 


000167 


000302 






JMP 


GO 


I CONTINUE 


546 


002406 * 


012767 


000151 


176266 


WRITCKl 


MOV 


1151, FUNC 


j LOAD WRITE-CHECK FUNCTION 


547 


0024 I 4 


012767 


002406* 


176266 




MOV 


#WRITCK , FERADR 


JSAVE WHERE WE WERE 


548 


002422 * 


016746 


175514 






MOV 


WPUFSZ,-(SP) 


jGET WPITfc SIZE 


549 


0024ZO 


W0341& 








NEG 


(SP) 


f NEGATE IT 


550 


002430 * 


012677 


177336 






MOV 


(SP)+,iRHWC 


I LOAD WORD COUNT 


551 


002434 


016777 


175474 


177332 




MOV 


WBUFPA,9RHBA 


I LOAD BUFFER ADDRESS 


552 


w(0244i 


016777 


176200 


177326 




MOV 


DSKADP,9RPDA 


; LOAD DISK ADDRESS 


553 


002450 * 


016777 


176166 


177346 




MOV 


CYLNDR»PRPDC 


J LOAD CYLINDER ADDRESS 


554 










i 


LINEUP 


WBUFEA 


1 LINE UP EA BITS FOR RHCSl 


555 


002476 * 




000206 






JMP 


GO 


I CONTINUE 


556 






000171 


176172 


READ i 


MOV 


#171, FUNC 


1 LOAD READ FUNCTION 


557 


Via 40 1 v 


012767 


002502* 


176172 




MOV 


#READ, FERADR 


; SAVE WHERE WE WERE 


558 


0025 1 6 * 


016746 


175410 






MOV 


RBUFSZ,»(SP) 


}GET READ SIZE 


559 




(9(034 1 o 








NEG 


(SP) 


J NEGATE IT 


560 


if 02924 


012677 


177242 






MOV 


(SP)+,9PHKC 


; LOAD WORD COUNT 


561 


002530* 


016777 


175372 


177236 




MOV 


RBUFPA, 9RHBA 


J LOAD BUFFER ADDRESS 


362 


0025 36 * 


016777 


176104 


177232 




MOV 


DSKADR, PRPDA 


j LOAD DISK ADDRESS 


563 


vvt 9 * «t 


016777 


1 76072 


177252 




MOV 


CYLNDR, fiRPDC 


I LOAD CYLINDER ADDRESS 


564 










; 


LINEUP 


PBUFEA 


; LINE UP £A BITS FOR RHCSl 


565 


002572 * 


CI PI CM ftl 


000112 






JMP 


GO 


* CONTINUE 


366 


002576 * 


016777 


176074 


177174 


PELESE I 


MOV 


UMTNO, 9RHCS2 


|SET UP UNIT TO RELEASE 


567 


002604* 


012777 


000PI13 


177156 




MOV 


#l3,»PHCSi 


IFXECUTE RELEASE COMMAND 


566 


002612' 


104407 


000000* 






BREAKS i 


BEGIN 


^TEMPORARY RETURN TO MONITOR, , 


569 


002616* 


104407 


04*0000 * 






BREAKS i 


BEGIN 


JTHE.N CONTINUE* AT N&AT 1N5TRULT1UN a 


570 


002622* 


000207 








RTS 


PC 


jlT'S RELEASED 


571 
















;##«33 


572 


















573 


002624' 


016777 


176046 


177146 


CLEARi 


MOV 


UNITNO,§RHCS2 


I LOAD UNIT ADDRESS 


574 


002632' 


012777 


000011 


177130 




MOV 


#ll#0PHCSl 


? ISSUE A DRIVE CLEAR 


S75 


002640* 


000240 








NOP 




jWAIT 


576 


002642* 


000240 








NOP 




f FOR DRIVE CLEAR TO FINISH 


577 


002644* 


012777 


000023 


177116 




MOV 


#23,iPHCSl 


j ISSUE A PACK ACK 



JURB001 



|DRB001 
IDRB001 



IDRB001 
|DRB001 
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XRPDC0, 


Pi 1 13»JUN»79 


13101 




MODULE 


CODE 




|DRB00 


1 


578 


002652* 


105777 


177112 




IS! 


TSTB 


8RHCS1 






579 


002656* 


100401 








BMI 


25 






580 


002660* 


000774 








BR 


1$ 


J NO, WAIT TILL DONE 




581 


002662* 


017746 


177120 




21! 


MOV 


PPPAS,»(SP) 


JCLEAR AS BIT 




382 


002666* 


012677 


177114 






MOV 


(SP) + ,G»RPAS 






383 


002672' 


012777 


040000 


177070 




MOV 


#BIT14,§RHCS1 


J CLEAR ANY CONTROLLER ERRORS 




584 


002700* 


012777 


010000 


177114 




MOV 


•PIT! 2,*PP0F 


| SET BIT FOR 11 FORMAT 




385 


002706* 


000205 








PTS 


R5 


; RETURN 




386 
587 


002710* 


016777 


175762 


177062 


GO! 


MOV 


UNITNO,9PHCS2 


1 LOAD UNIT SELECT 




388 


002716* 


032767 


001000 


175132 




BIT 


#ADDR22,PES1 


»22 BIT SUPPORT? 


I 


589 


002724* 


001434 








BEQ 


1$ 


|N0 


1 


590 


002726* 


017767 


177042 


175672 




MOV 


S3PHBA,PA18 


I GET 18 BIT ADDR 




591 


002734' 


006267 


175670 






ASP 


XMEM 


JSHIFT EA BITS TO POSITION 4,5 




592 


ib02740' 


006267 


175664 






ASR 


XMEM 






593 


002744* 


006267 


175660 






ASP 


XMEM 






594 


002750* 


006267 


175654 






ASR 


XMEM 






595 


002754' 


104416 


000000* 


000626' 




MAP22S 


, BEGIN, PAIS 


f GET 22»BIT ADDR FROM 18-BIT 


ADD 


596 


002762* 


016777 


175644 


177004 




MOV 


PA22,?RHBA 


f LOAD BA REG 




597 


002770* 


016777 


175640 


177042 




MOV 


EA22 , f RHBAE 


1 LOAD BAE REG 




598 


002776* 


042767 


000034 


175630 




BIC 


I34,EA22 


JCLEAR UNWANTED BITS 




599 


003004* 


000367 


175624 






SWAB 


EA22 


iLOAD INTO BITS 8,9 




600 


003010' 


016767 


17562* 


175612 




MOV 


EA22,XMEM 


JLOAD XMEM TO SET INTO FUNCTION CODE 




601 


003016* 


056767 


175606 


175656 


IS! 


BIS 


XMEM, FUNC 


f LOAD EXTENDED MEMORY BITS 




602 


003024* 


016777 


175652 


176736 




MOV 


FUNC , PRHC51 


1 EXECUTE THE FUNCTION 




603 


003032* 


104400 


000000* 






EXITS, 


BEGIN 


jEXIT TO MONITOR 9 MODULE WAIT 


FOR 


604 


003036* 


010046 






NTRUPT ! 


MOV 


R0,»(SP) 


I5AVE R0 




603 


003040' 


016700 


173632 






MOV 


UNITNO,P0 






606 


003044* 


1)6000 


003242* 






MOVB 


BITTAB(R0),R0 






607 


003050* 


017746 


176732 






MOV 


PRPAS,«(SP) 






608 


003054* 


040016 








BIC 


P0, (SP) 






609 


003056* 


012677 


176724 






MOV 


(P6)t,9RPAS 






610 


003062' 


012600 








MOV 


(SP)+,R0 






611 
612 


003064' 


000004 


000000* 


003072* 




PIRQS, 


BEGIN, 1$ 


j QUEUE UP TO CONTINUE AT IS AND RTI 




613 
614 




















615 


003072* 


004567 


001360 




Ill 


JSR 


R5 , ERRORS 


! GO CHECK FOR ERRORS 




616 


003076* 


103401 








BCS 


2$ 


t ERRORS DETECTED 


1 


617 


003100* 


000205 








RTS 


R5 


^OTHERWISE, RETURN OK 




618 
619 


003102* 


012603 






2$! 


MOV 


(SPH ,R5 


f RESTORE P5, SINCE WE WON'T RETURN 


1 


620 


003104* 


005767 


175560 






TST 


FLAG 


JDON'T RETRY ON HARD ERROR 


1 


621 


003110* 


100410 








BMI 


4$ 




! 


622 


003112* 


005267 


175576 






INC 


TRY 


JCOUNT AN ERROR 




623 


003116* 


026727 


175572 


000003 




CMP 


TRY, #3 


|TGO MANY FOP THIS CYCLE? 


1 


624 


§03124* 


002002 








BGE 


4$ 


JBR IF SO 




625 


003126* 


000177 


175536 






JMP 


f FERADR 


IRE-EXECUTE THE DRIVER ROUTINE 


> 


626 


003132* 


003067 


175532 




411 


CLR 


FLAG 


JCLEAR HARD ERROR BIT 




627 


003136' 


104403 


000000' 


006722* 




MSGN|, 


BEGIN, EXCED 


I ASCII MESSAGE CALL WITH COMMON HEADER 


628 
















j#*-7 


! 


629 


003144* 


004767 


000102 




31! 


JSR 


PCPICKBK 


; TRY A DIFFERENT BLOCK 




630 


003130* 


005367 


175522 






DEC 


UNITNO 


! WANT TO RE-DO SAME DRIVE WERE ON 




631 


003154* 


000167 


177030 






JMP 


L00P2 


;G0 DO IT 




632 
















j##»2 


1 


S33 





















IDRB001 



;DRB001 



IDRB001 



!DRB001 
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634 
633 










S 








636 














l##«17 


JDRB001 


637 


















638 










PICKDR 1 








639 


(iff)* 


005267 


175512 




1 $ 1 


INC 


UNITNO IPOINT TO NEXT DRIVE 




640 


003 1 64 * 


026727 


1 75506 


00001 




CMP 


UN'ITNC ,18, f DONE LOOKING? 




641 


003 1 72 * 


WW l VW A 








BNE 


2| jHR IF NO , ELSE 




642 




WW 49 1 








SEC 


fSET CARRY FOR NO"MGRE ra DRIVES 


|DRB00l 


643 


003 1 76 * 


PoPI 410 










« « ifKIT ROUTINE 


f DRB001 


644 


vw J Avv 


a i &7aci 

V JL w f YfwJ 


175472 




2$ 1 


MOV 


UN ITNO » R0 | USE AS AN INDEX 




64S 


003204 9 


1 36067 


003242 * 


1 75460 






RTTTARfBCO .nVITF 1 TEST THIS DEVICE? 




646 


0032 1 2 * 


4401 0(91 








BNE 


3$ |BR IF YES* ELSE 




647 


0032 J 4 * 


CHI 7 6 1 








BR 


1 6 




648 


0032 1 6 * 








311 








649 














I #»»! 


|DRB001 


650 


0032 1 6 * 




002322 






JSR 


BS.RFinY JflFP* IF DRIVE IS READY 




631 


003222 * 


103402 








BCS 


4S |BR IF IT WAS READY 


JDRB001 


632 


003224 * 


004767 


002 1 20 






JSR 


PC , NOTRDY | ELSE GO CLEAR IT AND CHECK AGAIN 




653 


003230* 


004767 






4$l 


JSP 


PC , GETDVT |IS THIS LEGAL DRIVE TYPE? 


JDRB001 


654 


003234 * 


103751 








BCS 


10 I ILLEGAL TYPE 1 DROPPED, TRY NEXT 


|DRB001 


655 


003236 * 


00024 | 








CLC 


f RETURN* NEXT DRIVE AVAILABLE 


|DRB001 


656 


003240 * 


000207 






58 i 


RTS 


PC |G0 HOME 


IDRB001 


657 


003242 * 


on i pi ci i 






BITTAB | 


1001 






658 


(103244 9 


004004 








4004 






659 


003246* 


020020 








20020 






660 


P0 j«30 










100100 






661 


















662 


















663 


003252 9 








PICKRK I 




l**-ll 


IDRB001 


664 












f (* FUNCTION I SELECT NEXT DISK ADDRESS TO TEST, *) 


IDRB001 


665 












|(# AVOID WRITING OVER KNOWN BAD SPOTS OR DISK'S BAD #) 


|DRB0»01 


666 












|C* SPOT FILE CIF OPERATOR TELLS US IT'S THERE) • CYL *) 


I DRB001 


667 












fC* is 


"RELATIVE ADDRESS", MAX RANGE 0-410 (RP04/5) 0R#) 


| DRB001 


668 












,(» 0- 


407 CPP06JJ THIS IS MOVED TO CYLNDR AND INCRE" *) 


| DRB001 


669 












1 (* MENTED TO SECOND HALF IF THIS COPY OF RPD IS IN *} 


IDRB001 


670 












; (« PORT * MODE, *) 


IDRB001 


671 
















|DRB001 


672 


003252* 


032767 


000040 


174536 




BIT 


#NOpAND,SPl J IF SEQUENTIAL SEEKS THEM 


IDRB001 


673 


003260* 


001403 








BEO 


18 IBEGIN 


}DRB001 


674 


003262' 


105267 


175360 






INCB 


SECTOR } SECTOR I* SECTOR ♦ 1 


IDRB001 


675 


003266' 


000432 








BR 


25 |END 


JDRB001 


676 


003270' 








IS 1 




1 ELSE (* RANDOM SEEKS *) 


IDRB001 


677 














j BEGIN (# FUDGE 3 UN-PELATED 


|DRB001 


678 














I (* NUMBERS FROM I RAND CALL #) 


IDRB001 


679 


003270* 


104417 


000000* 






RANDS, 


BEGIN 




680 


003274* 


016700 


174554 






MOV 


RANNUM, P0 1 R0 I» RANNUM 


IDRB001 


681 


003300* 


042700 


176000 






BIC 


»l76000,R0 I R0 is R0 MOD 1024, 


|DRB001 


682 


003304* 


010067 


175334 






MOV 


R0,CYL I CYL 1= R0 


IDRB001 


683 


003310' 


016700 


174540 






MOV 


RANNUM, R0 | "RECHARGE" R0 


JDRB001 


684 


003314' 


000300 








SWAB 


R0 | R0<0|8> |b R0<8l8> 


IDRB001 


685 


003316 s 


042700 


177740 






BIC 


#177740, R0 I R0 la R0 MOD 32, 


|DRB0k)l 


686 


003322* 


110067 


175320 






MOVB 


P0, SECTOR I SECTOR 1 = R0 


JDRB001 


687 


003326' 


016700 


174522 






MOV 


RANNUM, R0 j AND AGAIN 


|DRB001 


688 


003332* 


000241 








CLC 


1 CARRY 1 = 


IDRB001 


689 


003334* 


006100 








POL 


R0 | CARRY is R0<15ll> 


|DRB001 



RPDC DEC/Xll SYSTEM EXERCISER MODULE 



MACY1 1 30A(lf52) 13-JUN-79 13105 PAGE 17 



XRPDC0 


Pll 13-JUN-79 


13101 




MODULE 


CODE 




IDRB001 




690 


003336* 


006100 








ROL 


R0 




IDRB001 


691 


003340* 


006100 








ROL 


R0 




IDRB001 


692 


003342' 


006100 








ROL 


RfeJ 




|DRB001 


693 


003344* 


042700 


177740 






BIC 


#177740, P0 


I R0 is (R0<0l 13>#8, ) + R0<13I3> 


IDRB001 


694 
















I (« NOTE I THE FORMULAE USED ARE #) 


{DRB001 


695 
















; (« ABSOLUTELY IRRELEVANT *) 


{DRB001 


696 


003350' 


110067 


175273 






MOVB 


R0, TRACK 


1 TRACK IB R0 


IDRB001 


697 


003354' 








2 S 1 






I END 


IDKB001 


698 


003354' 


126727 


175266 


000023 




CMPB 


SECTOR, #21, 


f IF SECTOR GT 21, THEN 


IDRB001 


699 


003362' 


003412 








BLE 


3S 


IBEGIN 


IDRB0U1 


700 


003364* 


105267 


175257 






IKCB 


TRACK 


| TRACK |a TRACK *• 1 


IDRB001 


701 


003370' 


016700 


175252 






MOV 


SECTOR, R0 


1 R0 1= SECTOR 


IDRB001 


702 


003374' 


012701 


000026 






MOV 


#22,,R1 


; Rl |= • OF SECTORS IN TRACK 


IDRB001 


703 


003400' 


004767 


000762 






JSR 


PCMODLUS 


1 R0 18 R0 MOD Rl 


IDRB001 


704 


003404* 


110067 


175216 






MOVB 


R0, SECTOR 


| SECTOR is R0 


JDRB001 


705 


003410' 








3$i 






f END 


IDRB001 


706 












;(» NOW 


, CUT VALUES DOWN 


TO LEGAL RANGES FOR CURRENT DRIVE TYPE 


«) |DRB001 


707 


003410' 


126727 


175233 


000(922 




CMPB 


TRACK, #18, 


I IF TRACK GT 18, THEN 


IDRB001 


708 


003416* 


003412 








BLE 


4$ 


IBEGIN 


IDRB001 


709 


003420' 


005267 


175220 






INC 


CYL 


I CYL 1= CYL ♦ 1 


IDRB001 


710 


003424* 


116700 


175217 






MOVB 


TRACK, P0 


I R0 |« TRACK 


|DRB0k)l 


711 


003430' 


012701 


000023 






MOV 


*19,,R1 


1 Rl is 19, 


IDRB001 


712 


003434' 


004767 


000726 






JSR 


PCMODLUS 


| R0 IB R0 MOD Rl 


|DRB001 


713 


003440* 


110067 


175203 






MOVB 


PC, TRACK 


1 TRACK is R0 


IDRB001 


714 


003444' 








4$: 






J END 


|DRB001 


715 


003444* 


026767 


175174 


175166 




CMP 


CYL,CYLLIM 


1 IF CYL GT » OF CYLINDERS IN RANGE THEN 


IDRB001 


716 


003452* 


002421 








BLT 


5$ 


IBEGIN 


IDRB001 


717 


003454* 


032767 


000040 


174334 




BIT 


#N0RAND,SR1 


I IF SEQUENTIAL SEEKS THEN 


IDRB001 


718 


003462' 


001405 








BEG 


6$ 


1 BEGIN 


IDRB001 


719 


003464* 


005067 


175154 






CLR 


CYL 


1 RESET CYLINDER 


IDRB001 


720 


003470* 


005067 


175152 






CLR 


DSKADP 


I TRACK |» 0, SECTOR f» 


IDRB001 


721 


003474' 


000410 








BR 


7S 


1 END 


IDRB001 


722 


003476* 








651 






| ELSE 


JDRB001 


723 
















1 BEGIN 


IDRB001 


724 


003476* 


016700 


175142 






MOV 


CYL,R0 


R0 is CYL 


JDRB001 


725 


003502' 


016701 


175132 






MOV 


CYLHM,R1 


1 PI !» CYLLIM 


IDRB001 


726 


003506' 


004767 


000654 






JSR 


PCMODLUS 


| R0 |b R0 MOD Rl 


?DRB001 


727 


003512' 


010067 


175126 






MOV 


R0,CYL 


1 CYL I s R0 


IDRB001 


728 


003516' 








781 






I END 


|DRB001 


729 


003516* 








5$t 






IEND 


IDRB001 


730 


003516* 


016767 


175122 


175116 




MOV 


CYL, CYLNDR 


(CYLNDR la CYL 


|OKB001 


731 


003324' 


032767 


000020 


174264 




BIT 


«BPORTrSPl 


IIF BPORT AND DUAL PORT THEN 




732 


003532* 


001407 








BEO 


8$ 


IBEGIN 


|DRB001 


733 


003334' 


032767 


000001 


175126 




BIT 


#BIT0,FLAG 




IDRB001 


734 


003542* 


001403 








BEG 


8$ 




|DRB001 


735 


003544' 


066767 


175070 


175070 




ADD 


CYLLIM, CYLNDR 


' INCREMENT TO SECOND HALF OF DISK 


IDRB001 


736 


003532* 








8SI 






IEND 


|DRB001 


737 


003552* 


026767 


175064 


175076 




CMP 


CYLNDR, LASCYL 


1 IF CYLNDR GT LASCYL THEN 


IDRB001 


738 


003560* 


003431 








BLE 


9$ 


IBEGIN 


|DRB001 


739 


003562* 


016767 


173070 


175052 




MOV 


LASCYL, CYLNDR 


1 CYLNDR I" LASCYL C* TRUNCATE *) 


IDRB001 


740 


003570* 


032767 


000040 


174220 




BIT 


#N0RAND,8R1 


I IF SEQUENTIAL THEN 


|DRB001 


741 


003576* 


001404 








BEQ 


10$ 


1 BEGIN 


IDRB001 


742 


003600* 


005067 


175040 






CLR 


CYL 


I RESET CYLINDER 


|DRB001 


743 


003604* 


003067 


175036 






CLR 


DSKADR 


1 TRACK I s 0# SECTOR |» 


IDRB001 


744 


003610' 








10SI 






I END 


IDRB001 


745 


003610* 


12S767 


175033 


175042 




CMPB 


TRACK, LASTRK 


1 IF TRACK GT LASTRKK THEN 


IDRB001 



hpdc utc/xu Bt&tm tAMUU mmht facyu m<iM2) i3*jun*79 1110s page is 

XPPDC0.P11 13-JUN-79 1 3 1 (9 1 MODULE CODE JDRB001 SEO 0017 



# 



746 


003616' 


00341 2 








BLE 


1 1 $ 


1 BEGIN 


f DRB001 


747 


003620 * 


1 16767 


175034 


175021 




MOVR 


LASTRK , TRACK 


f TRACK l B LASTRK 


JDRB001 


748 


003626 * 


126767 


175014 


175026 




CMpb 


SECTOR, LASSEC 


f IF SECTOR GT LASSEC THEN 


f DRB001 


749 


0036 34 


003403 








BLE 


1 28 


j BEGIN 


f DRB001 


750 


0CI1& 16 * 

I'll JO 


1 16767 


175020 


1 75002 




MOVB 


LASSEC , SECTOR 


| SECTOR |B LASSEC 


|DRB001 


75 i 










1 28 i 






I END 


| DRB001 


752 










oil ' 






I END 


i DHRMM 1 


753 


003644 














> END 


} [}RB00 | 


754 


















}DRB001 


755 












; (* NOW 


, CHECK BADSPOT 


TABLE #) 




756 


YIV JOHH 


at 9 7 


VYIV £ 3 £ 






MOV 


#BADSPTi R0 


;R0 is ADDRESS OF TABLE 


IDRB001 


757 


an ilia' 


? If Z?i 








MOV 


NXTBBK,R1 


iRl is END OF TABLE 


f DRB00 1 


758 


naicti # 


1 16702 








MOVB 


SECTOR, P2 


IR2 la SECTOR 






003660 


1 16703 


174763 






MOVB 


TRACK, P3 


|R3 is TRACK 




Iff 


003664 * 


016704 


174752 






MOV 


CYLNDR,R4 


;R4 is cylndp 


I DDR001 


761 












I (« CALCULATE UPPER LIMIT OF THIS WRITE #) 


t DRR0M 1 


762 


W« JO f 


BOO ff < 


j 74772 






ADO 


SIZSEC » R2 


) R2 1= R2 * # OF SECTORS IN WRITE 


)DRB001 


763 


003674 * 


020227 


000025 






CMP 


R2, #21 8 


| I r R2 l»I dl a THLN 


f DRB001 


764 


an l "1 an * 


003403 








BLE 


1 38 


J BEGIN 


)DRB001 


765 




005203 








INC 


R3 


J RJ I s RJ + 1 llwCR» Urrtn IRACft/ 


f DRB001 


766 


003704 * 


162702 


W If BIO £ o 






SUB 


#22, »R2 


J TKUNt A Ri 


| DRB001 


767 


0037 10 * 








13 91 






1 END 


, W HOBb 4 


768 


00 3 7 } 9 


_ 

066703 


174750 






ADD 


SIZTRK, R3 


JR3 I * R3 + TRKSIZ 


)DRB001 


769 


003714' 


020327 


00^1022 






CMP 


R3 ##18, 


■ tr Dl (!T 1 Q Turn 
|J,r K J vii ID, 1 ntN 


IDRB001 


770 


0037 20 * 


003403 








BLE 


148 




|DRB001 


771 


003722* 


0052C4 








INC 


R4 


1 R4 1= R4 + 1 (INCR, UPPER CYLINDER) 


j URB001 


772 


003724 * 


162703 


XJ xf *7 r' £ J 






SUB 


#19.,P3 


J TRUNCATE R3 


)DRB001 


773 


0037 30 * 








AA 






; END 


}DRB001 


774 


0037 30 * 








j«* ! 


CMP 


P0,RI 


J WHILE R0 LT Rl DO 


f DRB001 


775 


003732 * 










BGE 


168 


I BEGIN 


f DRB00 1 


776 


003734 * 


o7 fi7 1 o 

i3 & O f IK/ 


174702 






CMP 


CVLNDR, (R0) 


j IF CYLNDR LE CR0) AND R4 GE (R0) 


|DRB001 


777 


0037 40 * 


003022 








BGT 


17$ 


J AND TRACK LE 3(R0) AND R3 GE 3(R0) 


IDRB001 


778 


003742 * 


W«S(7*B 1 10 








CMP 


R4, (R0) 


j AND SECTOR LE 2CR0) AND R2 GE 2CR0) 


THEN ;DRB001 


779 


003744 * 


002420 








BLT 


178 




|DRB001 


780 


003746 * 


1 26760 


174675 


10 r' W tv x/ J 




CMPB 


TRACK, 3CR0) 




;DRB001 


781 


003754 ' 


0030 1 4 








BGT 


178 




}DRB001 


782 


003756 * 


1 20360 


aaaaa 1 

v%f<Ox)%J <J 






CMPB 


R3,3(P0) 




|DRB001 


783 


003762 ' 


00241 1 








BLT 


178 




I DRB001 


784 


003764 ' 


1 26760 


174656 


C* (J) (7)0)0 2 

If 10 IP rJ IP & 




CMPB 


SECTOR, 2(R03 




|DRB001 


785 


003772 ' 


003005 








BGT 


178 




IDRB001 


786 


003774 ' 




Iff It/ It* » */ Sb 






CMPB 


R2,2CR0) 




IDRB001 


787 


004000* 


(1024019 








BLT 


178 


J BEGIN 


| DRB00 1 


788 


00)400)2 * 


0001 1 fi7 

l^JO W 4 w / 


177244 






JMp 


PICKBK 


; TRY ANOTHER SECTOR 


jDRB001 


789 


004006 9 








171 1 






J END 


}DRB001 


790 


004006 * 




000004 






ADD 


#4,R0 


I INCREMENT TO NEXT BAD SPOT 


|DRB001 


791 


004012' 


000746 








BP, 


158 


> END 


IDRB001 


792 


004014' 








1611 








|DRB001 


793 


004014* 


000207 








RTS 


PC 


ICPU GO HOMEll 1 1 


IDRB001 


794 


















}DRB001 


791 


















IDRB001 


796 


004016* 








WRTLIM | 








IDRB001 


797 












; C* WE 


ALLOW USER TO CHANGE WBUFSZ "AT WILL """"THEREFORE *) 


»DRB001 


798 












1 (« WE 


DO NOT AUTOMATICALLY KNOW THE TRANSFER SIZE. #) 


}DRB001 


799 












jt* COMPUTATION IS MADE 


EASIER, FURTHERMORE, IF WE HAVE #) 


IDRB001 


800 












i(# THE 


SIZE BROKEN INTO TRACKS AND SECTORS (SINCE #) 


|DRB001 


801 












I (* WBUFSZ IS ONE WORD* 


THE TRANSFER CAN'T BE GREATER *) 


IDRB001 
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XRPDC0 


Pll 13»JUN»79 


13101 




MODULE 


CODE 




IDRB001 




802 












»(* 


THAN 12 TRACKS), 


THIS ROUTINE ALSO CALCULATES THE #) 


JDRB0U1 


803 














UPPER LIMITS ON DISK WRITES SO AS NOT TO OVERFLOW *) 


JDRB001 


S04 












}(* 


HIGH CYLINDER, 


*) 


JDRB001 


80S 


















JDRB001 


806 


004016* 


016700 


174120 






MOV 


WBUFSZ, R0 


|R0 la ALLOCATED WRITE BUFFER 


JDRB001 


807 


004022' 


000300 








SWAB 


P0 


|R0 is R0 / 256, 


JDRB001 


808 


004024' 


042700 


177400 






BIC 


#177400, R0 


t (# R0 IS WBUFSZ IN SECTORS ») 


JDRB001 


809 


004030' 


005067 


174630 






CLR 


SIZTRK 


JSIZTRK |b 


JDRB001 


810 


004034* 


020027 


000026 




131 


CMP 


R0,#22 t 


f WHILE R0 GE 22, DO 


JORB001 


811 


004040* 


002405 








BLT 


28 


| BEGIN 


JDRB001 


812 


004042* 


105267 


174616 






INCB 


SIZTRK 


» SIZTRK 1= SIZTRK + 1 


JDRB001 


813 


0C4046* 


162700 


0t*0026 






SUB 


#22,,R0 


1 DECREMENT SECTORS BY 1 TRACK 


JDRB001 


814 


004052* 


000770 








BP 


18 


>END 


JDRB001 


815 


004054' 


010067 


174606 




281 


MOV 


R0, SIZSEC 


ISIZSEC |= REMAINDER 


JDRB001 


816 


004060* 


012701 


090022 






MOV 


#18,,R1 


JRl l«= HIGH TRACK 


JDRB001 


817 


004064* 


012702 


000025 






MOV 


#21. ,R2 


|R2 1 3 HIGH SECTOR 


JORB001 


818 


004070' 


160002 








SUB 


P0,P2 


IR2 |s R2 » SIZSEC 


JDRB001 


819 


004072' 


005702 








TST 


R2 


JIF P2 LT THEN 


JDRB001 


820 


004074* 


002003 








BGE 


38 


I BEGIN 


JDRB001 


821 


004076' 


062702 


000026 






ADD 


#22 S ,R2 


j INCREMENT BACK UP 


JDRB001 


822 


004102' 


005301 








DEC 


Rl 


1 CAN'T FIT THAT LAST TRACK, , t 


JDRB001 


823 


004104* 








381 






I END 


JDRB001 


824 


004104' 


166701 


174554 






SUB 


SIZTRK, PI 


IRl la Rl * SIZTRK 


JDRB001 


825 


004110' 


005701 








TST 


PI 


|1F Rl LT THEN 


JDRB001 


826 


004112* 


002004 








BGE 


43 


JBEGIN 


JDRB001 


827 


004114* 


062701 


000023 






ADD 


#19., PI 


J INCREMENT Rl BACK UP 


JDRB001 


828 


0104120' 


005367 


174532 






DEC 


LASCYL 


J LASCXL is LASCYL » 1 


JDRB001 


829 


004124* 








482 






1 END 


JDRB001 


830 


004124* 


010167 


174530 






MOV 


Rl, LASTRK 


1 LASTRK is HIGHEST TRACK WE CAN WRITE 


JDRB0ie)l 


831 


004130' 


010267 


174526 






MOV 


R2, LASSEC 


; LASSEC 1= HIGHEST SECTOR WE CAN WRITE 


JDRB001 


832 


004134* 


000207 








RTS 


PC 


f END OF ROUTINE 


JDRB001 


833 


004136* 








GETDVTi 








JDRB001 


834 












f £* 


FIND WHICH TYPE OF 


DRIVE THIS IS, IF RP04/5, SET CYLLIM #) 


JDRB001 


835 












;C* 


TO 206, IF RP06, 


SET CYLLIM TO 408, DROP THE DRIVE IF #) 


JDRB001 


836 












!<* 


IT IS NOT A RP04/5/6 *) 


JDRB001 


837 

838 


004136' 


016777 


174534 


175634 




MOV 


UMTN0,9RHCS2 


1 SELECT THE DRIVE 


JDRB001 
JDRB001 


839 


004144* 


027727 


175646 


024022 




CMP 


SRPDT, #24022 


J IF IT IS AN RP06 DUAL PORT THEN 


JDRB001 


840 


C04152' 


001012 








BNE 


18 


JBEGIN 


JDRB001 


841 


004154* 


052767 


000001 


174506 




BIS 


#BIT0, FLAG 


| DUAL PORT 


JDRB001 


842 


004162* 


012767 


000630 


174450 




MOV 


#408,,CYLLIM 


1 CYLLIM 1= 408, 


JDRB001 


843 


004170* 


012767 


001456 


174460 




MOV 


•8] 4. , LASCYL 


f LASCYL |- DISK HIGH LIM 


JDRB001 


844 


004176* 


000471 








BR 


28 


i END 


JDRB001 


843 


004200' 








111 






1 ELSE 


JDRB001 


846 


004200' 


027727 


175612 


024021 




CMp 


9KPDT, «2402i 


1 IF IT 18 RP04/5 DUAL PORT THEN 


JDRB001 


847 


004206' 


001404 








BEQ 


38 


1 


JDRB001 


848 


004210* 


027727 


175602 


024020 




CMP 


@RPDT, #24020 


1 


JDRB001 


849 


004216* 


001012 








BNE 


43 


| BEGIN 


JDRB001 


850 


004220* 








3$l 








JDRB001 


851 


004220* 


052767 


000001 


174442 




BIS 


*E IT0 , FLAG 


I DUAL PORT 


JDRB001 


832 


004226' 


012767 


000316 


174404 




MOV 


#2fc6.,CYLLIM 


I CYLLIM I" 206, 


JDRB001 


833 


004234* 


012767 


000632 


174414 




MOV 


#410 8 , LASCYL 


I LASCYL |B DISK HIGH LIM 


JDRB001 


854 


004242* 


000447 








BR 


58 


; END 


JDRB001 


835 


004244* 








411 






? ELSE 


JDRB001 


836 


004244* 


027727 


175546 


020022 




CMP 


•RPDT, 420022 


JIF RP06 SINGLE PORT THEN 


JDRB001 


85? 


004252* 


001012 








BNE 


6$ 


JBEGIN 


JDRB001 
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MODULE CODE f DRB001 



SEO 0019 



858 


004254' 


042767 


859 


004262' 


012767 


860 


004270' 


012767 


861 


004276' 


000431 


862 


004300* 




863 


004300' 


027727 


864 


004306 ' 


001404 


865 


004310' 


027727 


866 


004316' 


001012 


867 


004320' 




868 


004320 ' 


042767 


869 


004326 ' 


012767 


870 


004334* 


012767 


871 


004342 * 


000407 


872 


004344 ' 




873 






874 


004344 ' 


004767 


873 


004350* 


104403 


876 


004356 ' 


000261 


877 


004360' 


000401 


878 


004362 ' 




879 


004362' 




880 


004362* 


000241 


881 


004364' 




882 


004364 ' 


000207 


883 


004366* 




884 






885 






886 






887 


004366' 


020001 


888 


004370' 


002402 


889 


004372' 


160100 


890 


004374' 


000774 


891 


004376' 




892 


004376' 


000207 


893 






894 


004400* 


012700 


895 


004404' 


016701 


896 


004410' 


005020 


897 


004412* 


005301 


898 


004414* 


001375 


899 

900 


004416' 


000207 


901 


004420' 


012701 


902 


004424' 


016700 


903 


004430' 


001403 


904 


004432' 


006301 


905 


004434' 


005300 


906 


004436' 


001375 


907 


004440' 


040167 


908 






909 






910 






911 


004444* 


104420 


912 


004452' 


007024 


913 







001457 
001456 



175512 
175502 



000633 
000632 



174406 
174350 
174360 



020021 

020020 



174342 
174304 
174314 



000000' 007012* 



000716' 
173522 



174226 



000000* 000676' 





BIC 


«bIT0,FLAG 


j SINGLE PORT 




|DRB001 




MOV 


m5,,CYLLIM 


I CAN USE ENTIRE DISK 




IDRB001 




MOV 


#814., LASCYL 


f LASCYL fa DISK HIGH LIMIT 




|DRB001 




BR 


2f 


|END 




IDRB001 


63 1 






I ELSE 




|DRB001 




CMP 


&RPDT, 120021 


1 IF RP04/5 SINGLE PORT THEN 




IDRB001 




BEG. 


8$ 






|DRB001 




CMP 


9PPDT, 020020 






IDKB001 




BNE 


93 






IDRB001 


B$S 






{ BEGIN 




|DRB001 




BZC 


#RIT0, FLAG 


» SINGLE PORT 




|DRB001 




MOV 


#411,,CYLLIM 


> USE ENTIRE DISK 




IDRB001 




MOV 


#410,, LASCYL 


> LASCYL |s DISK HIGH LIMIT 




JDRB001 




BR 


29 


f END 




|DRB001 


9$S 






J ELSE 




IDRB001 








IBEGIN 




IDRB001 




JSR 


PC, DROP 


j DROP THE DRIVE 




|DRB001 




MSGNS, BEGIN, BADTYP 


1 ASCI I MESSAGE CALL WITH COMMON HEADER 






SEC 




1 ERROR RETURN 




|DRB00t 




BR 


78 






f DRB001 


SHI 






lEND 




|DRB001 


2(1 










}DRB001 




CLC 




|NQ ERROR 




|DRB00i 


7SI 










I DRB001 




RTS 


PC 


| RETURN 




|DRB00i 


MODLUSt 










|DRB00i 




I (« 


THIS LITTLE ROUTINE 


COMPUTES R0 MODULUS Rl 


*) 


|DRB00i 




,(# 


I.E., THE REMAINDER 


OF P0/P1, AND RETURNS THE 


#) 


IDRB001 




?c* 


ANSWER IN R0, 




*) 


|DRB001 


111 


CMP 


R0,R1 


1 WHILE R0 GE Rl DO 




IDRB001 




BLT 


2$ 


IBEGIN 








SUB 


R1,R0 


f R0 ia R0»R1 




IDRB001 




BP 


1$ 


5 END 




|DRB001 


2$ f 






I 




IDRB001 




RTS 


PC 


jTHAT'S ALL 




|DBB001 


CLPRB| 


MOV 


#PBUF,B0 


ICLEAR RBUF BUFFER 








MOV 


RBUFSEiRl 


J GET ITS ADDR AND SIZE 






CLRCOMi 


CLR 


(R0H 


JCLEAR ANOTHER 








DEC 


Rl 


ICOUNT ANOTHER 








BNE 


CLRCOM 


|BR BACK TILL DONE 








RTS 


PC 








DROPl 


MOV 


#1,R1 


1 INITIALIZE DROP PICKER 








MOV 


UNITNO, R0 


I GET THE DRIVE NUMBER 








BEQ 


2$ 


| IF DRIVE GO DROP IT 








ASL 


Rl 


| POINT TO NEXT DRIVE 








DEC 


R0 


| IS THIS THE ONE ? 








BNE 


15 


1 NO, LOOK AGAIN 






23* 


BIC 


Ri,DVICE 


I DROP THE DRIVE 







I ##############*############*#######»**#######*#*♦###*«######•## 

fCONVERT UNITNO TO ASCII AND 
ISTORE AT ADR1 

OTOA3, BEGIN, UNITNO, ADR 1 

j ######################*############*#######*##«######♦****#•*# 



RPDC DEC/X11 SYSTEM EXERCISER MODULE 



XRPDC0, 


Pll i3»JUN*79 


13101 


914 


004454' 


000207 




915 








916 








917 


004456' 






918 


004456' 


005777 


175306 


919 


004462' 


100403 




920 


004464' 


000241 




921 


004466' 


000167 


000654 


922 








923 


004472* 






924 








925 


004472' 


005000 




926 


004474' 


016701 


175270 


927 


004500* 






928 








929 


004500* 


012160 


000552 


930 


004504' 


005720 




931 


004506' 


020027 


000046 


932 


004512' 


002772 




933 


004514* 


004767 


001162 


934 


004520' 


005767 


174036 


935 


004524' 


100015 




936 


004526* 


005267 


174146 


937 


004532' 


032767 


000004 


938 


004540* 


001005 




939 


004542' 


104403 


00000A 


940 


004550' 


000167 


000440 


941 








942 


004554* 






943 


004554* 


000167 


000502 


944 








945 


004560* 


032767 


000100 


946 


004566' 


001020 




947 


004570' 


032767 


000020 


948 


004576' 


001471 




949 


004600' 


032767 


100000 


950 


004606* 


001402 




951 


004610* 


000167 


000400 


952 


004614' 


032767 


000400 


953 


004622' 


001402 




954 


004624' 


000167 


000442 


955 


004630' 






956 


004630* 


032767 


000100 


957 


004636' 


001434 




958 


004640' 






959 


004640' 


116767 


173714 


960 


004646' 


116767 


173707 


961 


004654' 


016767 


173730 


962 








963 








964 








965 


004662' 


104420 


000000 


966 


004670' 


007024* 




967 








96S 








969 
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IDRB001 



ERRORS I 



173256 

006726' 



174000 481 

173770 

173760 

173744 3011 

8$l 

173160 



174004 
174000 
173766 



PTS 


PC 


1 RETURN 










IDKB001 


TST 


9RHCS1 


|IF NO ERROR THEN 


IDRB001 


BMI 


IS 


f BEGIN 


|DRB001 


CLC 




J SET NO ERROR 


JDRB001 


JMP 


23 


| RETURN NO ERROR 


fDRB001 






J END 


SDRB001 






f ELSE 


|DRB001 






IBEGIN 


|DRB001 


CLR 


R0 


; R0 |=0 


JDRB001 


MOV 


RHCS1,R1 


1 BEGIN OF REGISTER POINTERS 


IDRB001 






| REPEAT 


|0RB001 






J BEGIN 


IDRB001 


MOV 


(P1H,5(R0) 


1 MOV REGISTER TO TEMPORARY 


JDRB001 


TST 


(R0) + 


1 ADVANCE POINTER 


JDRB001 


CMP 


R0,i46 


; END 


JDRR001 


BLT 


3$ 


I UNTIL R0 GE 46 


|DRB00l 


JSR 


PCERSUBl 


1 GET SOME TRIVIAL INFO 


|DRB00l 


TST 


S+10 


1 IF DATA LATE ERROR THEN 


IDRB001 


BPL 


48 


1 BEGIN 


IDRB001 


INC 


DLTCNT 


1 COUNT IT UNCONDITIONALLY 


IDRB001 


BIT 


#DLATE,SR1 


| IF OPERATOR WANTS MESSAGE THEN 


f DRB001 


BNE 


5$ 


1 BEGIN 


IDRB001 


MSGNf 


BEGIN, DLTERR 


fASCII MESSAGE CALL WITH COMMON HEADER 




JMP 


63 


1 HARD ERROR PROCESS 


IDRB001 






I END 


>DRB001 






1 ELSE 


|DRB001 


JMP 


7$ 


| NO MESSAGE "HARD ERROR" RETURN 


f DRB001 






1 END 


}DRB00l 


BIT 


#BIT6,S+14 


I IF ER1<6> OR C ER1<4> AND NOT 


|DRB0wl 


BNE 


8f 


I ER1<15> AND NOT ER1<8> ) THEN 


IDRB001 


BIT 


•RIT4,S+14 




|DRB00l 


BEQ 


9S 




IDRB001 


BIT 


#BIT15#S*14 




JDRB001 


BEQ 


30S 




J0RB001 


JMP 


63 


I C* HARD ERROR #) 


|DRB00i 


BIT 


*RIT6,S+14 




IDRB001 


BEQ 


8$ 




>DRBfc>01 


JMP 


103 


I (« SOFT ERROR #) 


IDRB001 






f BEGIN (« BADSPOT #) 


{DRB001 


BIT 


#BDSPTrSRl 


; IF OPERATOR WANTS TYPEOUT THEN 


IDRB001 


BEQ 


123 




}DRB001 






; BEGIN 


IDRB001 


MOVB 


S+6,BAUSEC 


1 SET CURRENT SECTOR 


IDRB001 


MOVB 


8+7,BADTRK 


I SET CURRENT TRACK 


JDRB001 


MOV 


S+36,BADCYL 


J SET CURRENT CYLINDER 


}DRB001 



y *«#**«•««**«««•««»*«•**•««#*«««««»««««»*«*»«•««»««#«««»**»*««»* 

fCONVERT UNITNO TO ASCII AND 
I STORE AT ADR1 

OTO A I, BEGIN, UNITNO, ADR 1 

I ««•*#•*«#«»«•«•*#*«•«»*»«««*•»•«••*««»••««»««««•*•»*««*»««*»«» 
)•«««•«««#••#«««•«**•#«««««•#«#«««*«••*««««*#«#«»««•••*••*««#*»* 

iCONVERT BADCYL TO ASCII AND 



MODULE CODE 



J0RB001 



SEU Mil 



970 


















I STORE AT CYLNO 




971 


004672' 


104420 


000000 ' 


000650* 




OTOAS 


BEGIN, BADCYL, 


CXLNO 






972 


004700* 


006614* 


















973 












;#########*#####*#♦########**##*#####*########**#«####**#**»♦** 




974 












i #*#####»####*■»#«####♦♦# 


*«»#««««*«****»»**«**«*«**«***«»«««**«** 




97S 


















^CONVERT BADTRK TO ASCII AND 




976 


















jSTORE AT TRKNO 




977 


004702* 


104420 


000P00' 


000654' 




OTOAS 


BEGIN, BADTRK, 


TRKNO 






978 


004710* 


006632* 


















979 
980 












t #########################»######*#########»#########**#######*# 




981 


















1CONVERT BADSEC TO ASCII AND 




982 


















JSTORE AT SECNO 




983 


004712 s 


104420 


000000* 


000652* 




OTOA$ 


BEGIN, BADSEC, 


SECNO 






984 


004720* 


006650* 


















985 












•##############################################*##########*♦### 




986 


004722' 


104403 


000000* 


006736* 




MSGN$ 


BEGIN, BADMES 




JASC1I MESSAGE CALL WITH COMMON HEADER 




987 


004730* 








12$! 








t END 


JDRB001 


988 


004730* 


026727 


173702 


000552' 




CMP 


NXTBBK, IENDBBK 


} IF MORE SPACE IN TABLE THEN 


|DRB001 


989 


004736* 


002010 








BGE 


138 




; BEGIN 


JDRB001 


990 


004740* 


016700 


173672 






MOV 


NXTBBK, R0 




> R0 POINTS TO NEXT FREE SLOT IN TABLEf DRB001 


991 


004744* 


016720 


173700 






MOV 


BADCYL, (R0) 




I STUFF CYLINDER NUMBER 


IDRB001 


992 


004750* 


016720 


173604 






MOV 


S*6, CR0H 




f STUFF REST OF DISK ADDRESS 


f DRB001 


993 


004754* 


010067 


173656 






MOV 


R0, NXTBBK 




» UPDATE POINTER 


JDHB001 


994 


004760* 








1331 








I END 


>DRB001 


99S 


004760* 


000540 








BR 


7$ 




> NO MESSAGE "HARD ERROR" SO NO RE«TRY 


IDRB001 


996 


004762' 








9$: 








j END (* BAD SPOT *) 


JDRB001 


997 


004762* 


032767 


020000 


173562 




BIT 


#BIT13»S 




f IF MASSBUSS CTRL PARITY ERROR THEN 


IDRB001 


998 


004770' 


001404 








BEG 


163 




> BEGIN 


IDRB001 


999 


004772' 


104403 


000000* 


006700* 




MSGNS 


BEGIN, MCPEPR 




; ASCII MESSAGE CALL WITH COMMON HEADER 




1000 


005000* 


000505 








BR 


68 




I HARD ERROR 


}DRB001 


1001 


005002* 








16$ S 








END 


JDRB001 


1002 


005002* 


032767 


000400 


173552 




BIT 


#B1TB,S+10 




I IF MASSBUSS DATA PARITY ERROR THEN 


|DRB001 


1003 


005010* 


001404 








BEQ 


17$ 




J BEGIN 


IDRB001 


1004 


005012' 


104403 


000000* 


006710' 




MSGNS 


BEGIN, MDPERR 




jASCII MESSAGE CALL WITH COMMON HEADER 




1005 


005020* 


000475 








BP 


63 




! HARD ERROR 


JDRB001 


1006 


003022' 








17SI 








1 END 


IDRB001 


1007 


005022* 


032767 


040000 


173532 




BIT 


#BIT14,S+10 




I IF WRITE-CHECK ERROR THEN 


IDRB001 


1008 


005030' 


001404 








BEQ 


18$ 




; BEGIN 


|DRB001 


1009 


005032* 


104403 


000000* 


006672' 




MSGNS 


BEGIN, TRERR 




JASCII MESSAGE CALL WITH COMMON HEADER 




1010 


005040' 


000514 








BR 


1 ('$ 




j SOFT ERROR 


JDRB001 


101 1 


005042* 








1881 








1 END 


JDRB001 


1012 


005042* 


032767 


040000 


173502 




BIT 


#BITi4,S 




J IF ANY OTHER TRANSFER ERROR THEN 


JDRB001 


1013 


005050* 


001404 








BEQ 


190 




i BEGIN 


JDRB001 


1014 


005052* 


104403 


000000* 


006672' 




MSGNI 


BEGIN, TRERP 




lASCII MESSAGE CALL WITH COMMON HEADER 




1015 


005060* 


000455 








BR 


63 




I HARD ERROR 


JDRB001 


1016 


005062 * 








1 9| i 








I END 


f DRB001 


1017 


005062* 


032767 


024000 


173474 




BIT 


#BIT13 JBIT1 


liS+1 


2 I IF OTHER HARD ERROR THEN 


IDRB001 


1018 


005070* 


001034 








BNE 


20$ 






fDRB001 


1019 


005072* 


032767 


000200 


173466 




BIT 


#BIT7,S+14 






JDPB001 


1020 


005100* 


001405 








BEQ 


213 






f DRB001 


1021 


005102' 


032767 


000400 


173456 




BIT 


#BIT8,S+14 






IDRB001 


1022 


005110* 


001070 








BNE 


10$ 




? C* SOFT»«SPECIAL CASE #) 


|DRB001 


1023 


005112* 


000423 








BR 


20$ 






JDPB001 


1024 


009114* 


032767 


057057 


173444 


21$ 1 


BIT 


•57057, S+14 






JDRB001 


1025 


005122' 


001017 








BNE 


208 






JDRB001 
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RPDC0, 


Pll 13-JUN-79 


13101 




MODULE 


CODE 






JDRB001 




1026 


005124* 


005767 


173462 






TST 


S*40 


t 




IDHB001 


1027 


005130' 


001014 








BNE 


203 


i 




;DRB001 


1028 


005132* 


032767 


000156 


173454 




BIT 


#156, S+42 


1 




IURB001 


1029 


005140' 


001010 








BNE 


203 


i 




IDRB001 


1030 


005142' 


032767 


000200 


172646 




BIT 


#RH70,SR1 


t 




IDRB001 


1031 


005150' 


001405 








BEQ 


223 


1 




JDRB001 


1032 


005152* 


032777 


140000 


174662 




BIT 


#140000, 0RHCS3 


I 




JDRB001 


1033 


005160* 


001401 








BEQ 


22$ 


> 




JD8B001 


1034 


005162* 








20 SI 






1 BEGIN 




1DRB001 


1035 


005162* 


000414 








BP 


6$ 


} HARD ERROR 




JDRB001 


1036 


005164' 








22$I 






1 END 




IDRB001 


1037 


005164* 


032767 


120400 


173374 




BIT 


#120400,5+14 


1 IF OTHER SOFT ERRORS THEN 




JDRB001 


1038 


005172' 


001004 








BNE 


233 


J 




IDRB001 


1039 


005174' 


032767 


140000 


173412 




BIT 


*1 40000,5+42 


1 




JDRB001 


1040 


005202' 


001401 








BEQ 


248 


I 




JDHB001 


1041 


005204* 








2331 






; BEGIN 




>DRB001 


1042 


005204' 


000432 








BR 


10$ 


I SOFT ERROR 




1DRB001 


1043 


005206' 








24SI 






| END 




JDRB001 


1044 












J(* IF 


WE FALL THRU TO 


HERE, WE HAVE AN UNKNOWN ERROR *} 




JDRB001 


1045 


005206* 


104403 


000000* 


006754' 




MSGN$, 


BEGIN, UNKNWN 


JASCII MESSAGE CALL WITH COMMON 


HEADER 




1046 


W05214' 








631 


» C* PROCESS HARD ERROR 


#) 




JDRB001 


1047 


005214* 


016700 


174572 






MOV 


PHDB,R0 


; SAVE RHDB ADDRESS 




JDRB001 


1048 


005220' 


105767 


173336 






TSTB 


S + 10 


| IF OR NOT SET THEN 




JURB001 


1049 


005224' 


100407 








B M I 


253 


! BEGIN 




JDRB001 


1050 


005226* 


012767 


000706' 


174556 




MOV 


#ZERO# RHDB 


1 FAKE ADDRESS TO PREVENT DLT ON ACCESS I DRB001 


1051 


005234' 


012767 


000001 


172644 




MOV 


#1,ERPTYP 


1 DATA PROBLEM 




;DHB001 


1052 


005242' 


000402 








BP 


268 


J END 




IDRB001 


1053 


005244' 








25$ t 






> ELSE 




1DRB001 


1054 


009244* 


005067 


172636 






CLR 


ERRTYP 


J SOME OTHER ERROR 




IDRB001 


1055 


005250* 








26Sf 






1 




JDRB001 


1056 












;######♦•######♦#####**##*########*####*#######♦##############*# 


1057 


005250* 


104405 


000000* 


001716' 




HPDERS 


,BFGIN, TABLE 


I 






1058 












(#«««#**«•«#»««**«#««»*»#«*•***#««*«*«*#*»«****»«*»»'»«***««*«*#* 


1059 


0052S6* 


010067 


174530 






MOV 


R0,RHDB 


; RESTORE DATA BUFFER ADDRESS 


IDRB001 




1060 


005262' 


052767 


000200 


173400 


7SI 


BIS 


#BIT7 , FLAG 


t HARD ERROR FLAG I NO RETRY 




IDRB001 


1061 


005270* 


000423 








BR 


273 


f DO COMMON ERROR EXIT 




;DRB001 


1062 




















1DRB001 


1063 


005272' 








1081 


i (# PROCESS SOFT ERROR 


#) 




>DRB001 


1064 


005272* 


016700 


174514 






MOV 


RHDB#R0 


! SAVE RHDB ADDRESS 




1DRB001 


1065 


005276* 


105767 


173260 






TSTB 


S4-10 


> IF OR NOT SET THEN 




|DRB001 


1066 


005302' 


100407 








BMI 


283 


! BEGIN 




JDRB001 


1067 


005304' 


012767 


000706' 


174500 




MOV 


#EERO,RHDB 


1 DON'T TRY TO ACCESS REGISTER 




| DRB001 


1068 


005312* 


012767 


000001 


172566 




MOV 


# 1 # ERRTYP 


I DATA ERROR 




1DRB001 


1069 


005320' 


000402 








BP 


293 


} END 




;DRB001 


1070 


005322* 








28$| 






I ELSE 




;DRB001 


1071 


005322' 


005067 


172560 






CLP 


ERRTYP 


I OTHER ERROR TYPE 




>DRB001 


1072 


005326* 








2931 






? 




IDRB001 


1073 












j »#»«##«#«*«««««**#**##»«#«»«»«*««*«*»#*#*•*«*##«*#«##*«#**»«*««# 


1074 


005326' 


104406 


000000' 


001716' 




SOFERS 


, BEGIN , TABLE 


I 






1075 












i ««*«*«*##**«#*#»*##*«*##*##»#«***««»««*«««««««###»«##««««»####«* 


1076 


005334* 


005067 


173330 






CLR 


FLAG 


; NO HARD ERROR 




JDRB001 


1077 




















IDRB001 


1078 


005340* 


004767 


000004 




2711 


JSR 


PC , NOTRDY 


I CLEAR OUT ERRORS, MAKE SURE DRIVE'S OK|DRB001 


1079 


005344' 


000261 








SEC 




| SET ERROR RETURN 




IDRB001 


1080 


005346* 


000205 






2S1 


RTS 


R5 


| RETURN HOMEWARD. 




|DRB001 


1081 
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1083 


005350* 


012767 


077777 


173334 


NOTRDYl 


MOV 


#77777, CLK 


» SET THE TIMER 


1084 


005356* 








481 








1085 


005356' 


032777 


004000 


174404 




BIT 


#BITU # PRHCS1 


IDO I HAVE THE DRIVE DVA7 


1086 


005364* 


001406 








BEQ 


6$ 


JNO 


1087 


005366' 


010046 








MOV 


R0,-(SP) 




1088 


005370' 


012600 








MOV 


(SP)*#R0 


UUST WASTE A LITTLE TIME 


1089 


005372' 


032777 


004000 


174370 




BIT 


«BIT11,»RHCS1 


fSTILL GOT IT? 


1090 


005400' 


001017 








BNE 


2$ 




1091 


005402' 








6 31 








1092 


005402' 


104407 


000000' 






BREAKS 


^ BEGIN 


| TEMPORARY RETURN TO MONITOR, , , , 


1093 


005406' 


104407 


000000" 






BREAKS 


,BEGIN 


f THEN CONTINUE AT NEXT INSTRUCTION, 


1094 


005412' 


104407 


000000' 






BREAK! 


,BEGIN 


> TEMPORARY RETURN TO MONITOR,,,, 


109S 


005416' 


104407 


000000* 






BREAKS 


, BEGIN 


f THEN CONTINUE AT NEXT INSTRUCTION, 


1096 


005422' 


005367 


173264 






DEC 


CLK 


ICOUNT • OF TRIES 


1097 


005426' 


001353 








BNE 


4$ 


1 NOT DONE YET 


1098 


005430' 


104403 


000000' 


006762' 




MSGN$, 


BEGIN, NOT fASCII 


MESSAGE CALL WITH COMMON HEADER 


1099 


005436' 


000426 








BP 


7$ 


fCOULD NOT GET DRIVE 


1100 


005440' 


004567 


175160 




281 


JSR 


R5, CLEAR 


fSET THE CONTROLLER AND DRIVE 


1101 


005444' 


004367 


000074 






JSH 


P5, READY 


J IS DRIVE READY 7 


1103 


005450* 


000434 








BP 


1$ 


f YES, CONTINUE 


1103 


005452' 


004767 


000224 




5$I 


JSR 


PC#ERSUBt 


f LOAD ERROR INFORMATION 


1104 


005456* 


005000 








CLR 


R0 


fMOVE DRIVE REG INTO TABLE 


1103 


005460' 


016701 


174304 






MOV 


RHCS1,P1 




1106 


005464* 


012160 


000532* 




2211 


MOV 


(P1)*,S(R0) 




1107 


005470* 


005720 








TST 


(R0J + 




1108 


005472 * 


022700 


000046 






CMP 


#46, R0 




1109 


005476' 


001372 








BNE 


22$ 




1110 


005500' 


012767 


000006 


172400 




MOV 


#6,ERRTYP 


fDRIVE NOT READY 


1111 












i *»#*•*«#«*«*«*****«****««•*»«*«*•#»«*«*«*«»*»«*«#*«*»#»«*#««**# 


1112 


005506' 


104405 


000000* 


001716* 




HRDEPS 


,BEGIN, TABLE 


J DRIVE NOT READY 


1113 












I #####•#####»###########################################*#*##### 


1114 
















j#*»l 


1119 


005514' 


004767 


175056 




7SI 


JSR 


PCRELESE 


(RELEASE THE DRIVE 


1116 


005520' 

003324* 


004767 


176674 






JSR 


PC, DROP 


f NO, DROP THE DRIVE 


1117 


104403 


000000* 


007000' 




MSGN3, 


BEGIN, DRP fASCII 


MESSAGE CALL WITH COMMON HEADER 


1118 


005532' 


016706 


172274 






MOV 


SP0INT,R6 




1119 


005336' 


000167 


174446 






JMP 


LOOP2 




1120 

1121 
1122 
1123 
1124 


005542* 


000207 






l$l 


RTS 


PC 


(RETURN 


005544' 


016777 


173126 


174226 


t 

READY! 


MOV 


UNITNO,|RHCS2 


1 LOAD UNIT ADDRESS 


1123 


005552' 


017700 


174212 






MOV 


#RHCS1»R0 




1126 


005536' 


032700 


004000 






BIT 


#BIT11,P0 




1127 


005562' 


001433 








BEQ 


IS 




1128 


005564' 


017700 


174212 






MOV 


t3RPDS,R0 


f SAVE STATUS IN R0 


1129 


005570' 


105700 








TSTB 


R0 


J DRIVE READY ? 


1130 


003372* 


100027 








BPL 


IS 


1 NO 


1131 


005574* 


032700 


000100 






BIT 


»BIT6,R0 


f VOLUME VALID ? 


1132 


003600* 


001424 








BEQ 


IS 


f NO 


1133 


005602' 


032700 


000400 






BIT 


#BITB,RfeJ 


1 DRIVE PRESENT 7 


1134 


005606* 


001421 








BEQ 


IS 


f NO 


1133 


005610' 


032700 


004000 






BIT 


#BITH,R0 


f WRITE LOCKED 7 


1136 


003614* 


001016 








BNE 


IS 


f YES 


1137 


005616* 


032700 


010000 






BIT 


#BIT12,R0 


; MEDIUM ON LINE 7 



RPDC DEC/XU SYSTEM EXERCISER MODULE 



1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1130 
1151 
1132 
1153 
1134 
1155 
1156 
1157 
1138 
1139 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
U79 
1180 
1181 
1182 
1183 
1184 
1183 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
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Pll 13-JUN-79 


13101 




MODULE 


CODE 




IDRB001 


005622' 


001413 








BEQ 


IS 


; NO 


003624' 


032700 


040000 






BIT 


•BIT14,P0 


> ANY ERRORS ? 


005630' 


001010 








BNE 


IS 


I YES 


003632* 


005700 








TST 


R0 


J ATTENTION SET 7 


005634' 


100406 








BMI 


IS 


1 YES 


005636' 


032777 


004000 


174124 




BIT 


*BIT11,0RHCS1 


|DVA SET? 


005644' 


001402 








BEQ 


IS 


f BR IF NOT 


003646* 


000261 








SEC 




f*««3 

; READY 


005650' 


000401 








BR 


2$ 


> RETURN 


005652' 


000241 






IS! 


CLC 




f NOT READY 


005654' 


000205 






211 
t 


RTS 


R5 


f RETURN 


003636' 


014167 


172224 




ERSUB2I 


MOV 


-CR1),ASB 


1 LOAD THE DATA 


003662* 


010167 


172214 






MOV 


Pt,SBADR 


t LOAD ADDRESS OF DATA WRITTEN 


003666' 


014267 


172216 






MOV 


»(R2)#AWAS 


J LOAD THE DATA 


005672' 


010267 


172206 






MOV 


R2 , WASADR 


J LOAD ADDRESS OF DATA READ 


005676' 


005721 








TST 


(Rl) + 


f RESET REG, 1 


005700' 


005722 








TST 


(P2)* 


; RESET REG, 2 


003702' 


016767 


174062 


172170 


ERSUBli 


MOV 


PHCS1,CSPA 


f LOAD ADR OF CURRENT CSR 


005710' 


017767 


174054 


172164 




MOV 


PRHCS1»ACSR 


f LOAD CONTENTS OF CURRENT CSR 


005716" 


000207 








RTS 


PC 


j RETURN 


005720* 


017700 


174044 




PEZETi 


MOV 


?RHCS1,R0 




005724* 


P32700 


004000 






BIT 


#BIT11,R0 




005730' 


001003 








BNt; 


3S 




005732' 


104407 


000000* 






BREAKS 


t BEGIN 


{TEMPORARY RETURN TO MONITOR, , , , 


005736' 


104407 


0000091* 






BREAKS 


.BEGIN 


f THEN CONTINUE AT NEXT INSTRUCTION, 


005742' 


000766 








BR 


REZET 




005744' 


012777 


000040 


174026 


SSI 


MOV 


*BIT5,9RHCS2 


I ISSUE AN RHU INIT 


005752' 


012767 


077777 


172732 




MOV 


•77777, CLK 


1 SET THE TIMER 


005760* 


105777 


174004 




111 


TSTB 


8PHCS1 


f CONTROLLER READY ? 


005764* 


100417 








BMI 


2S 


} YES* CONTINUE 


005766' 


104407 


000000* 






BREAKS 


BEGIN 


(TEMPORARY RETURN TO MONITOR,,,, 


005772' 


104407 


000000* 






BREAKS 


fBEGIN 


J THEN CONTINUE AT NEXT INSTRUCTION, 


005776' 


005367 


172710 






DEC 


CLK 


f WAIT SOME MORE ? 


006002' 


001366 








BNE 


IS 


f YES 


006004' 


012767 


000003 


172074 




MOV 


#3i ERRTYP 


(CONTROLLER NOT READY 












j «•«««*««»#««««««#«**«#«»«»««««•»«»»##«#«#««««««•««###«**»«*««#* 


006012' 


104405 


000000* 


000000 




HRDERS 


,BEGIN,NULL 


f CONTROLLER NOT READY 












j **»•««»#«*#»»*«#**#*»«**«««#*###»#**»»«»##«#*««#«##«*«««#«#««»# 


006020' 


104410 


000000* 






ENDS, BEGIN 


f 


006024' 


017746 


173756 




2S! 


MOV 


•RPASf " (SP) 




006030' 


012677 


173732 






MOV 


(SP)+,eppAs 




006034' 


000207 








RTS 


PC 


3 RETURN 



IDRB001 
(DRB001 
f DRB001 
IDRB001 
fDRB00l 



006036' 016700 
006042' 010067 
006046' 062700 
006032* 010067 



171744 
173722 



SETUP I 



173714 



MOV 
MOV 
ADD 
MOV 



ADDR, R0 
R0,RHCS1 
• 2*R0 
R0,RHWC 



f GET DEVICE ADDRESS 

f GENERATE REGISTER ADDRESSES 
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i 1 94 


006056 * 


062700 


000002 






uafsjit, 9 * 

OICOOO * 


V X WO 1 


1 7 3706 




| j gg 


• > *» o 10 o o 


01ft 970) CI 

*' Q & < \0tJ 


St? *j V7 r/ ip a 






lAatia 1 °i » 


at a 1/167 


1 7 3700 




1 i Ofl 


rogsfl / P 








1199 


*A £Jt £ < fil ^ 9 


V 1 10100 / 


173672 




! «f ^ 


wkJO 1 WD 


062700 


1/>(0^ 




I 20 1 


006 1 1 2 * 


r 1 0(067 


1 7 366 4 




1 202 


(0100 1 1 o 


wo £ 1 IOV) 


10Wl1(3(0 / 




1203 


fMi\&. 4 1 9 

wwo 1 2 < 


010067 


173656 




1 204 


006 1 26 * 


no d 1 1010 


t9 (0(9 10 10 « 




1 205 


006 1 32 * 


1 0067 


1 7365P 




1 206 


0061 36 * 


062700 


000002 




1 207 


006 1 42 * 


010067 


1 7 3642 




1 208 


006 1 46 * 


062700 


000002 




1 209 


006 1 5 2 * 


10 l VJI0O / 


17 36 34 




1210 


006 156 * 


0I& *5 1 131 


n f% f% r% r\ "\ 




1211 


006 162 


V7l»l0O / 


1 73626 




1212 


006 1 66 * 


WoZ r»0 


Wfcl(0(0K> £ 




1213 


««f \ \ \ 9 








I i\t 


006 176 


WO / / 1010 


w W V Y> v * 




1215 


006202 ' 


010067 


173612 




1216 


0100 4100 


0I& ^ 7 rtdl 
(0O<S / 010 


I0i0(0lr>^ £ 




1217 


10100 x 1 « 


Is 1 WI0O / 










100 * ' » v 


not wioia 9 




1 91 Q 


10100 4 <{ 4 


a i aaftl 

«£> l WVO 1 


173576 




1 220 


i0i0Oc *0 


ok "it am 

WO / 1 if" 


aciacioi9 

S3 KJ WW Id & 




1 221 




V 1 WtPP / 


17 3570 




1 222 


006236 * 


Via 4 1 I0W 


W M 10 W (0 « 




1223 


006242 ' 


10067 


173562 






aacolf # 
f>K70 |1D 


I0O * f rvty 


VitAOiOkIA 9 




1225 


aa£939 * 

VVO £•) 4 


a i and 7 


1 73554 




1236 




uwi f YJVJ 








CICIA9A9 * 


1 0067 


1 73546 




1228 


uuDcuu 


062700 






1229 


00627 2 * 


m 4 aaS> 7 
1(0 10 / 


1 7 3540 














1 & 9 i 


vna {in 


032767 


CI CI 1 0)tACI 


171552 




I0*7O J IP** 


001 415 






1233 


CICiA 1GI6 * 
Www J si*' 


032767 


PI 9 CI 1/1 
K/ SO Y} & Y*x) 


171502 


1 234 




001 4 1 1 






1 235 


00631 6 


062700 


000002 




1236 


006322* 


010067 


173512 




J237 


006326* 


062700 


000002 




1238 


006332* 


010067 


173504 




1239 


006336* 


000403 






1240 


006340* 


042767 


001000 


171510 


1241 


006346* 


016700 


171436 




1242 


006352' 


012720 


003036' 




1243 


0063S6* 


116710 


171430 




1244 


006362* 


000207 






1245 











l$t 

2$l 



ADD 


#2#P0 


MOV 


R0 r PHBA 


ADD 


9 2 1 P0 


MOV 


pfi, PPDA 


fmv 


# 2 1 R0 




R0I.BHf*fi9 






MOV 


□a . tons 


ADD 




MOV 




ADD 






H\v| nrnO 


ADD 




MOV 


P0 1 PPLA 


ADD 






OO . R HDR 

nnUO 


»nn 




MrtV 


DO . RPMR 


ADD 






Dffl . BD51 1 
n 19 f n r ' / J. 






MOV 


PH. DP CM 


ADD 


# 2 # R0 




R0 < RPOF 


ADD 




MOV 


R0#RPDC 


ADD 


#2, P0 


MOV 


R0 § RPCC 




% 2 1 R0 


MOV 


RP» RPEP2 


ADD 


#2# R0 


MOV 


P0i RPER3 


ADD 


# 2 # R0 


MOV 


F0# PPEC 1 


ADD 


#2 fR0 


MOV 


RP* » PPEC 2 


BIT 


# ADDR22 f RES 1 




1 S 


BIT 


#RH70 f SP 1 


BEQ 


18 


ADD 


#2#R0 


MOV 


RP,RHBAE 


ADD 


#2#R0 


MOV 


R0,RHCS3 


BR 


28 


BIC 


«ADDR22,RES1 


MOV 


VECTOR, R0 


MOV 


#NTRUPT# CR0) 


MOVB 


BR1, (R0) 


PTS 


PC 



»**»7 

jDO WE HAVE 22-BIT ADDR SUPPORT? 
JNO 

fIS THIS AN RH70 
INO 



; CAN'T USE 22 BIT ADDRESSING 

; GET VECTOR ADDRESS 

J SET POINTER JUST IN CASE 

I SET PRIORITY 

J RETURN 



JDRB001 
f DRB001 
IDRB001 
|DRB001 
IDRB001 



IDRB001 
IDRB001 
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1246 










.SBTTL 


MODULE 


MESSAGES 


IDRB001 


1247 














t#*»40 


;DRB001 


1248 


006364* 


042440 


051122 


051U7 


MES1 1 


.ASCIZ 


* EPROR%* 


IDPB001 


1249 


006372* 


000045 














1250 


006374* 


050040 


051101 


052111 


MES21 


.ASCIZ 


' PARITY * 


JDRB001 


1251 


006402* 


000131 














1252 


006404* 


042040 


044522 


042526 


MES3 I 


.ASCIZ 


' DRIVE ' 


|DRB001 


1253 


006412' 


000040 














1254 


006414* 


046440 


051501 


041123 


MES4 1 


aASCIZ 


* MASSBUS' 


IDRB001 


1255 


006422* 


051525 


000 












1256 


006425* 


040 


040504 


040524 


MESS I 


a ASCIZ 


' DATA * 


IDRB001 


1257 


006432* 


000 














1258 


006433* 


040 


042522 


051124 


MES6I 


.ASCIZ 


' RETRY EXCEEDED%' 


| DRB001 


1259 


006440* 


020131 


054105 


042503 










1260 


006446' 


042105 


0421^5 


000045 










1261 


006454* 


046040 


052101 


000105 


MES7 1 


.ASCIZ 


' LATE* 


)DRB001 


1262 


006462' 


047516 


020124 


042522 


MES8I 


.ASCIZ 


'NOT READY%* 


SDRB001 


1263 


006470* 


042101 


022531 


000 










1264 


006475* 


040 


047503 


046125 


MES9I 


.ASCIZ 


* COULD NOT GET' 


|DRB001 


1265 


006502' 


020104 


047516 


020124 










1266 


006510* 


042507 


000124 












1267 


006514* 


042040 


047522 


050120 


MES101 


.ASCIZ 


* DROPPED* 


}DRB001 


1268 


006522* 


042105 


000 












1269 


006525' 


072 


047C40 


052117 


f^ESlll 


.ASCIZ 


'J NOT RP04/5/6I' 


}DRB001 


1270 


006532' 


051040 


030120 


027464 










1271 


006540* 


027465 


022466 


000 










1272 


006545' 


040 


051124 


047101 


MES12I 


.ASCIZ 


' TRANSFER* 


;DRB001 


1273 


006552* 


043123 


051105 


000 










1274 


006557' 


045 


000 




MES13I 


.ASCIZ 




;DRB001 


1273 


006561' 


072 


041040 


042101 


MES15I 


, ASCIZ 


*l BADSPOT AT (OCTAL) CYLI ' 


IDRB001 


1276 


006566* 


050123 


052117 


040440 










1277 


006374* 


020124 


047450 


052103 










1278 


006602* 


046101 


020051 


054503 










1279 


006610* 


035114 


000040 












1280 


006614* 


000002 






CYLNOf 


.BLKB 


2 


f DRB001 


1281 


006616' 


020040 


020040 


020054 


MESlb! 


a ASCIZ 


* , TRKI * 


}DRB001 


1282 


006624* 


051124 


035113 


000040 










1283 


006632' 


000004 






TRKNO i 


.BLKB 


4 


}DRB001 


1284 


006636* 


020040 


020034 


042523 


MES17 1 


.ASCIZ 


* , SEC! ' 


JDRB001 


1285 


006644* 


035103 


000040 












1286 


006650* 


000004 






SECNOt 


.BLKB 


4 


IDRB001 


1287 


006654* 


020040 


000045 




MESlSt 


aASCIZ 


* %' 


IDRB001 


1288 


006660* 


052440 


045516 


047516 


MES19I 


. ASCIZ 


' UNKNOWN* 


JDRB001 


1289 


006666* 


047127 


000 












1290 




006672* 






.EVEN 






IDRB001 


1291 
















IDRB001 


1292 


006672* 


006545* 






TRERR | 


MES12 




IDRB001 


1293 


006674* 


006364* 








MES1 




IDRB001 


1294 


006676* 


177777 








177777 




JIDRB001 


1295 
















IDRB001 


1296 


006700* 


006414* 






MCPERRI 


MES4 




IDRB001 


1297 


006702* 


006374 s 








MES2 




JDRB001 


1298 


006704* 


006364* 








MESi 




;DRB0101 


1299 


006706' 


177777 








177777 




>DRB001 


1300 
















JDPB001 


1301 


006710* 


006414* 






MDPERRI 


MES4 




IDRB001 
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JDRB001 



1 302 


006712* 


006425 * 




MESS 


1 303 


006714* 


006374* 




MES2 


1 304 




006364* 




ME81 


1 30§ 




177777 




177777 


1 306 










1 307 


006722 * 


00643 3 * 


EXCED 1 


MES6 


1 308 


006724 * 


177777 




177777 


\ V* « 










1310 


WWO f iO 


a CIA AO* * 


Vli i err* i 


MESS 


1311 


WWO 1 Jv 






ME87 


* 3 1 « 


0067 32 * 


006 36 4 * 




MES1 


1313 


006734* 


177777 




177777 


1314 










1313 


0067 36 


a a & Aa A 9 




MES3 


1316 


006740 * 


wr/wJl 




Mrs?* 


1317 


006742 


00656 1 ' 






1318 


/X AC ^ A A 

B0B744 


006616* 




MFR1 A 


1319 


006746 * 


nail i & # 
tftf 00 JO 




ME817 


1 320 


nail la * 


UU0034 






1321 




i 77777 




177777 


1322 










1323 




KiWOOO w 


IlNK WWW 1 


MESl 9 


1324 


"06756 


YfvO JO 1 




MES1 


1 329 




177777 




177777 


1 326 










1 327 


MCI * 


ClClfidflA « 
vvotwt 


NOT I 


MES3 


1328 


006764 * 


aat\Am\<i # 
10100404 




MES8 


1 329 


Wo / DO 


177777 




177777 


1 330 










1331 


aa/tTia* 

vvO f f fj 


006475 * 


TOUT i 


MES9 


1332 


006772* 


PICO tvt 




MES3 


1333 


006774 * 






MESl 3 


1334 


WOO I (w 


177777 




177777 


1 33S 










1336 




£10164014 

IVY'V fOI 


DRPl 


MES3 


1 337 




007031 * 




NUMB 


1338 


aa'laad * 

K/IP / 10(0 ¥ 






MES10 


1339 


007006 * 


006557 * 




MESl 3 


1 340 


CI 0170 1 * 


177777 




177777 


1341 










1 342 


007012 * 


006404 * 


BADTYPl 


MES3 


1 343 


007014 * 


007031 * 




NUMB 


1344 


007016' 


006514* 




MES10 


134S 


007020* 


006525* 




MESl 1 


1346 


007022* 


177777 




177777 


1347 










1348 


007024* 


000005 


ADRll 


,BLKB 


1349 


007031* 


040 000 


NUMBI 


.ASCIE 


1350 




007034* 




.EVEN 


1351 










13S2 










13S3 










13S4 




000001 




,END 



5 

/ / 



|URB001 
}ORB001 
IDRB001 
IORB001 
IDRB001 
IDRB001 
IDRB001 
f DRB001 
JDRB001 
IDRB001 
IORB001 
PURB001 
IDRB001 
IDRB001 
IORB001 
JDRB001 
IORB001 
IORB001 
JDRB001 
IDRB001 
f DRB001 
IORB001 
IPRB001 
JDRB001 
IDRB001 
JDRB001 
IDRB001 
IDRB001 
;DRB001 
IDRB001 
IDRB001 
IORB001 
SDRB001 
JDRB001 
JDRB001 
f DRB001 
JDRB001 
IDRB001 
JDRB001 
fORB001 
JDRB001 
IDRB001 
JDRB001 
IDRB001 
JDRB001 
|DRB001 
JDRB001 
»DRB001 
|DRB001 
JDRB001 
pORB001 
IORB001 
PORB001 
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ACSR 


000102R 


231# 


1161# 






ADDR 


000006R 


197# 


1190 






ADDR228 


001000 


2609 


588 


1231 


1240 


ADR1 


007024R 


911 


965 


13481 




ASB 


000106R 


2338 


1153# 






ASTAT 


000104R 


233# 








ANAS 


0001 10R 


236# 


1155* 






BADCYL 


000650R 


393# 


961* 


971 


991 


BADMES 


006736R 


986 


1315* 






BAD8EC 


000652R 


394# 


959* 


983 




BADSPT 


000252R 


261# 


384 


756 




BADTPK 


000654R 


395* 


960* 


977 




BADTYP 


007012R 


875 


1342# 






BDSPT a 


000100 


3661 


956 






BEGIN 


000000R 


194# 


490 


493 


505 






875 


911 


939 


965 






1057 


1074 


1092 


1093 






1181 


1183 






BITTAB 


003242R 


606 


645 


657# 




BIT0 8 


000001 


2601 


733 


841 


851 


BIT1 ■ 


000002 


260# 








BIT10 a 


002000 


260ff 








BITll » 


004000 


260# 


1017 


1085 


1089 


BZT12 ■ 


010000 


260# 


584 


1137 




BIT13 a 


020000 


260* 


997 


1017 




BIT14 s 


040000 


2609 


583 


1007 


1012 


BIT15 a 


100000 


260# 


949 






BIT2 s 


000004 


* 260# 


363 






BITS s 


000010 


260# 








BIT4 8 


000020 


260# 


364 


947 




BITS s 


000040 


260# 


365 


1171 




BIT6 s 


000100 


2601 


366 


945 


1131 


BIT7 a 


000200 


260i 


367 


1019 


1060 


BIT8 s 


0001400 


260# 


952 


1002 


1021 


BIT9 » 


001000 


2609 








BPORT » 


000020 


3641 


731 




1092 


BREAK08 


104407 


260* 


568 


569 


BRi 


000012R 


199# 


1243 






BR2 


000013R 


2001 








BTODg 8 


104421 


260« 








CDATAIa 


104412 


260# 


517 






CDERCT 


000144R 


280* 








CDWDCT 


000146R 


251* 








CLEAR 


002624R 


573# 


1100 






CLK 


000712R 


413# 


1083» 


1096* 


1172* 


CLRCOM 


004410R 


896# 


898 






CLRRB 


004400R 


894* 








CONFIG 


000056R 


219« 








CSRA 


000100R 


2291 


1 160* 






CYCLE 


0022S4R 


500 


511* 






CYL 


000644R 


388* 


48]* 


682* 


709* 


CYLLXM 


000640R 


386# 


713 


725 


735 


CYLNDR 


000642R 


387* 


543 


553 


363 


CYLNO 


0066 HR 


971 


12801 








1044H 


2601 










104404 


260f 









507 
971 
1094 



858 
1126 
1139 



1133 
1093 



517 
977 
1095 



568 
983 
1098 



569 
986 
1112 



595 
999 
1117 



603 
1004 
1168 



612 
1009 
1169 



627 
1014 
1175 



679 
1045 
1176 



868 

1135 1143 1166 



1094 



1095 



1168 



1169 



1175 



1176 



715 
842« 

730* 



719* 

852* 
738* 



724 

859* 

737 



727* 730 

869* 

739* 760 



742* 
776 
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SEQ 0029 



DLATE ■ 


000004 


363# 


937 




















DLTCNT 


000700R 


4080 


936* 




















DL1ERP 


006726P 


939 


13100 




















DRIVE 


000674P 


4050 






















DROP 


004420P 


480 


874 


9010 


1116 
















DRP 


007000R 


1117 


13360 




















DSKADR 


000646R 


3890 


484* 


542 


552 


562 


720* 743* 












DVICE 


000672R 


4040 


467* 


477 


503 


643 


907* 












DVIDi 


000014R 


201* 


467 




















EA22 


000634P 


3028 


597 


898* 


599* 


600 














ENDBBK 


000552R 


3610 


988 




















ENDITSa 


104413 


2608 


507 




















ENDI ■ 


104410 


2600 


505 


1183 


















ERROPS 


004456R 


615 


9170 




















ERPTYP 


000106P 


2348 


1051# 


1054* 


1068* 


1071* 


1110* 1179* 












ER3UB1 


005702R 


933 


1103 


11600 


















ERSUB2 


005656P 


11938 






















EXCEO 


0&6722P 


627 


13070 




















EXITS a 


104400 


2609 


603 




















FERADR 


000710R 


4120 


537* 


547* 


557* 


625 














FLAG 


000670R 


4030 


620 


626* 


733 


841* 


851* 858* 868* 


1060* 


1076* 








FREE 


000150P 


2520 






















FUNC 


000702R 


4091 


536# 


546* 


556* 


601* 


602 












GETDVT 


004136R 


653 


8330 




















GETPAM 


104415 


2600 


490 




















GO 


002710P 


545 


555 


565 


5870 
















GWBUFSs 


104414 


260# 


493 




















HRDCNT 


000044R 


2140 






















HRDERI* 


10440S 


260* 


1057 


1112 


1181 
















HRDPAS 


0000S0R 


2160 






















XCQNT 


V00036R 


2 1 1 # 






















XCOUNT 


000040R 


2120 






















IDNUM 


000122R 


24 1 » 






















IMODX.a 


000000 


2530 


494 




















INIT 


000030R 


208# 






















INTR 


000120R 


240# 


466* 




















LASCYL 


000656R 


397* 


737 


739 


828* 


843* 


853* 860* 870* 












LASSEC 


000662R 


3990 


748 


750 


831* 
















LASTPK 


000660R 


398# 


745 


747 


830* 
















LOOP1 


002176R 


4920 


509 




















LOOP2 


002210R 


4950 


501 


631 


1119 
















MAP22$a 


104416 


2600 


595 




















MCPERR 


006700R 


999 


12960 




















MDPERR 


006710R 


1004 


1 301 




















MESl 


006364R 


12480 


1293 


1298 


1 304 


1312 


1324 












MES10 


006514R 


12670 


1338 


1344 


















HES11 


006525R 


12690 


1345 




















MES12 


006545R 


12720 


1292 




















MESl 3 


006S57R 


12740 


1333 


1339 


















MES15 


006S61R 


12750 


1317 




















MES16 


006616R 


1281« 


1318 




















MES17 


006636R 


12840 


1319 




















MESl 8 


006654P 


12870 


1320 




















MESl 9 


006660R 


12880 


1323 




















MES2 


006374R 


12501 


1297 


1303 


















MES3 


006404R 


12520 


1315 


1327 


1332 


1336 


1342 
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XRPOC0.P11 13-JUN 


-79 13101 




CROSS 1 


REFERENCE 


TABLE 


USER SYMBOLS 










SEti 


MES4 


006414R 


12540 


1296 


1 301 


















MESS 


006425R 


1256# 


1302 


1310 


















MES6 


006433R 


12580 


1307 




















MES7 


006454R 


12610 


1311 




















MES8 


006462R 


12620 


1328 




















MES9 


006475R 


12640 


1331 




















MODLUS 


004366R 


703 


712 


726 


8830 
















MODNAM 


000000R 


1950 






















MODSP 


0002S2R 


209 


2580 




















MSGNI a 


104403 


2600 


627 


875 


939 


986 


999 1004 1009 


1014 


1045 


1098 


1117 




MSGS$ a 


104402 


2600 






















MSGS ■ 


104401 


2600 






















NORANDs 


000040 


3650 


672 


717 


740 
















NOT 


006762R 


1098 


13278 




















NOTRDY 


005350R 


652 


1078 


10830 


















NTRUPT 


003036R 


6040 


1242 




















NULL « 


000000 


2600 


1181 




















NUMB 


007031R 


1316 


1337 


1343 


1 349# 
















NXTBBK 


000636R 


3840 


757 


988 


990 


993* 














OPEN a 


000000 


196 


202 


203 


204 


205 


222 223 224 


225 


226 


227 


228 


229 






231 


233 


235 


236 


238 


239 240 243 


244 


246 


247 


249 


250 






251 


252 


2600 


















OTOAS u 


104420 


2600 


911 


965 


971 


977 


983 












PASCNT 


000034R 


2100 






















PA18 


000626R 


379# 


590* 


595 


















PA22 


000612R 


381# 


596 




















PICKBK 


003252R 


513 


629 


6630 


788 
















PICKDR 


003160R 


496 


6380 




















PXRQI ■ 


000004 


2600 


612 




















POPSP a 


005726 


2600 






















P0PSP28 


022626 


260* 






















PRTY ■ 


000000 


2600 






















PRTY0 ■ 


000000 


200 


2600 




















PRTY1 a 


000040 


2600 






















PRTY2 ■ 


000100 


2600 






















PRTY3 a 


000140 


260# 






















PRTY4 s 


000200 


2600 






















PRTY5 m 


000240 


199 


2600 




















PRTY6 • 


000300 


2600 






















PRTY7 a 


000340 


2600 






















PS s 


177776 


2600 






















PSM • 


177776 


2600 






















PUSH « 


005746 


2600 






















PUSH2 ■ 


024646 


2600 






















RANDS a 


104417 


2600 


679 




















RANNUM 


000054R 


2180 


680 


683 


687 
















RBUF 


000716R 


242 


4150 


894 


















RBUFEA 


000130R 


2440 


565 




















RBUFPA 


000126R 


2430 


517 


561 


















RBUFSZ 


000132R 


2450 


558 


895 


















RBUFVA 


000124R 


2420 


490 




















READ 


002502R 


516 


5560 


S57 


















READY 


005544R 


650 


1101 


11240 


















RELESE 


002576P 


519 


5660 


1115 


















RESTRT 


002170R 


237 


4880 




















RES! 


000056R 


2200 


588 


1231 


1240* 
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SEU 00J1 



RE82 


VY/wvv>Vf 


22 1 * 
























RESET 




487 


1 1651 


1 170 






















an t 11 ad 
vv III 




541 * 


551* 


561 # 


590 


596* 


1 195* 












RHBAE 


n il *5 f% A tA T5 


If as 




















1105 


1125 


RHCS1 


0101 1 1 lOK 




4 «* 




577* 


578 


583# 


602* 


918 


926 1085 


1089 






1143 


1 160 


1161 


1 165 


1173 


1191* 














RHCS2 


002000R 


4440 


566# 


573* 


587* 


838* 


1124* 


_ 

\ X 7 1* 


1 1 »5»* 










RHCS3 


W02042R 


461 * 


1032 


1238* 




















RHDB 


002012P 


449* 


1047 


1050* 


1059* 


« /It X 

1 064 


_ 

1067 














RHWC 




441 # 


* 


«f 


560* 


1193* 
















RH70 ■ 


000200 


367 * 


1030 


123 3 




















RPAS 


002006R 


4471 


581 


582* 


607 


60»* 


1184 


_ _ 
1 1 85* 


205*, 
1 203 










RPCC 


002026R 


455 * 


1221* 






















RPDA 


001 776R 


443# 


542* 


552* 


562* 


1197* 
















RPDC 


002024R 


♦ 54* 


543* 


553* 


563* 


1219* 
















RPDS 


002002R 


4459 


1128 


1201* 




















RPDT 


002016R 


4511 


839 


846 


848 


856 


863 


865 


1213* 










RPEC1 


002034R 


458* 


1227« 






















RPEC2 


002036R 


459# 


1 229* 






















RPER1 


002004R 


446# 


1 203* 






















RPER2 




4561 


1223* 






















RrEr J 




457# 


1225* 






















RPLA 


002010R 


448 # 


1207* 






















RPMR 




!*•!!! 


1 2 1 1 * 


























* 




1 2 17* 




















RrS" 


/A/a ft t% mn 
vv2»2™R 


452* 


121 5* 






















newnm 

KoTKi 


000112R 


237* 
























S 


vw0S3«R 


369$ 


418 


419 


420 


421 


422 


423 


424 


425 426 


427 


428 


429 








431 


432 


433 


434 


435 


436 


437 


929* 934 


945 


947 


949 






oka 

952 


959 


960 


96 1 


992 


997 


1 002 


1007 


1012 1017 


1019 


1021 


1024 






1026 


1 028 


1037 


1039 


1048 


1065 


1 106* 














aaa i aod 
000102K 


230# 


1 154* 






















SECHO 


aa&ttttao 

BMOOD"(( 


983 


12864 






















SECT f)B 




390*. 


674* 


, gfi 


698 


701 


704* 


748 


750* 


758 784 








AVTtlD 




486 


1 1 90# 






















at vflirr 








8 15* 
























401 # 


768 


809# 


812* 


824 
















SOFCNT 




2 1 3# 
























Ovr wrv 554 




2604 


1074 






















80FPA6 




2154 
























8P0ZNT 


A CI Ci 011 90 


209 # 


1118 






















5PSIZ a 


K/I7K>I0 VIP 




253 






















SRI 


0000 1 6p 


202# 


672 


717 


731 


740 


937 


956 


1030 


1233 








3R2 


Ok a a a 9 a R 


203# 
























SR3 


000022R 


204* 
























8R4 


000024R 


2P5* 
























8TART 


002044R 


208 


464* 






















STAT 


000026R 


207* 
























SVR0 


000062R 


222* 
























8VR1 


000064R 


223* 
























8VR2 


000066R 


2241 
























3VR3 


000070R 


225# 
























SVR4 


000072R 


226# 
























SVR5 


000074R 


227# 
























SVR6 


000076P 


228# 
























8Y8CNT 


000052R 


217# 
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XRPDC0, 


PU 13-JUN-79 


13|01 




CROSS 1 


REFERENCE 


TABLE 


001716R 


417# 


1057 


1074 


1112 


TIMER 


000704R 


4109 








TOUT 


006770R 


1331# 








TRACK 


000647R 


391# 


696* 


700* 


707 


TRERR 


006672R 


1009 


1014 


1292* 




TRKNO 


006632R 


977 


1283* 






TRPDFDs 


000022 


260# 








TRY 


000714R 


414# 


499« 


622* 


623 


UNITNO 


000676R 


406# 


479* 


492* 


566 






911 


965 


1124 




UNKNWN 


006754R 


1045 


1323* 






VECTOR 


000010R 


198# 


1241 






WASADR 


000104R 


2328 


1156* 






WBUFEA 


000136R 


247* 


545 


555 




WBUFPA 


000134R 


246* 


541 


551 




WBUFRQ 


000140R 


248* 








WBUFSZ 


000142R 


249# 


538 


548 


806 


WDFR 


000U6R 


239* 


465# 






WDTO 


000114R 


238* 


464* 






WRITCK 


002406R 


515 


546* 


547 




WRITE 


002312R 


514 


536* 


537 




WRTLIM 


004016R 


498 


796# 






XFLAG 


000005R 


196* 








XMEM 


00063OR 


380* 


545* 


555* 


565* 


ZERO 


000706R 


411* 


1050 


1067 




B 3 


007034R 


415* 


518 


1280* 


1283* 



SEQ 00J2 



747* 



587 



591* 



ABS, 000000 



ERRORS DETECTED I 

DEFAULT GLOBALS GENERATED I 

XRPDC0#XRPDC0/SOL/CRFtSYMsDDXCOM,XRPDC0 
RUN-TIMEl 7 12 1 SECONDS 
RUN-TIME RATIOl 40/20*1.9 
CORE USEDl 7K (13 PAGES) 



